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There  are  two  things 

almost  everyone 
has  in  common. 
An  active  imag- 
ination. And 
a  tough 
time  put- 
ting it  on  paper. 

But  now  we  present 
our  Graphics  Scrapbook'' 
series.  A  huge  collection 
of  pictures  that  enable 
you  to  easily  bring  your 
creative  inspirations 
to  The  Print  Shop: 


PrintMaster™or  Create 
a  Calendar. 

On  each  disk  there  are 
over  100  unique  pictures. 
For  example,  in  our  School 
Scrapbook,  ' 
teachers  and 
students 
will  find 
everything 
from  cheer- 
leading  to  finals. 
In  the  Sports 
Scrapbook,  dozens 
of  sports,  mascots 


Un /  ti  h li fidtL'il  tyi ■  -m Uh inf^' 
pin u res  mi  ettfy  iljsh. 


and  trophies.  In 
the  Off  the  V/all 
Scrapbook,  well, 
just  expect  the  un- 
expected. And  plenty 
more  Scrapbooks 
:  are  coming.  So  even  if 
:  you  can't  draw  a  straight 
i  line,  it's  okay    ^,    ,^  , 
;     As  long  as    %^<;'::7i/.  , 

:  straight  one  J^^^  ^^ 
I  to  the  of-    ^  I 
ifer  below.   "'"-*'" 
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Introducing 
Create  A 
Calendar. 
Our  sim- 
ple, power- 
Ill  tool  that 
ets  you 


"-*^\r;;!!  design  daily 


.•^'^mm'^        Time  flies. 
ft  tnif^ht  fl5 
hok  stwzzy  us  it  f,'th 

weekly  monthly  or  yearly 
calendars.  In  moments. 


Among  numerous  fea- 
tures, it  includes  graphics, 
borders  and  fonts  for  just 
about  every  occasion.  Or 
use  your  own  pictures  from 
the  Graphics  Scrapbooks 
or  Print  Shop  compatible 
graphics  disks. 

What's  more,  it  lets  you 
write  multiple  lines  of  text 
on  every  date.  To  make  it 
easy  to  keep  track  of 
everything 


i  you're  supposed  to  do.  And 
:  everything  you've  done, 
i  So  this  year,  go  ahead  and 
:  make  your  own  calendars, 
j     There  couldn't  be  a  nicer 
i  way  to  pass 
i  the  time. 

USE  OIR  PREVIEW  DtSK  TO  DRAW 
YOUR  OWN  COMCLUSION.  Send  war  name, 
addirsx,  phone  number,  computer  type,  and  a 
check  or  money  order  for  $1.50  lo  Calendar/ 
Scrapbook  Preview.  P.O.  Box  8020.  Redwood 
City.  C4  94063.  Canadian  orders  add  50c  post- 
age 6-8  iveeks  delivery  Expires  8/30/87  Valid 
only  in  cont.  U.S.  and  Canada. 

;    Thi-  Print  Shop  a  a  Imdtmark  i^ Bmderbuni  Softwan.  he. 

;    friutmaitei  h  il  Imiknwrk  of  Uiiism  Worlit.  !m:  Cruphia 
;  ScnlpbiKik  i.v  n  tntilcmiirk  ofBp}'x.  Inc. 

c.  WS'e  Epyx,  Inc. 


We'll  pay  you  to  take 
the  most  exciting  classes  anywhere< 


You*ll  learn  electronics,  avionics,  aircraft 
maintenance,  health  care  sciences,  man- 
agement or  logistics— the  Air  Force  will 
train  you  in  one  of  more  than  200  technical 
specialties  America  needs  today. 

You'll  get  hands-on  experience  with  the 
latest  equipment,  and  we'll  pay  75%  of  your 
tuition  for  off-duty  college  courses,  to  get 
you  even  further. 


Whatever  your  goals,  the  Air  Force  will 
equip  you  with  the  skills  to  get  where  you 
want  to  be. 

If  you're  looking  seriously  into  your 
future,  Aim  High  to  a  future  in  the  Air  Force. 
Visit  your  Air  Force  recruiter  today  or  call 
toll-free  1-800-423-USAF     ^  ^^ 
(in  California  jaaag 

1-800-232-USAF).  ^^ZZ^S^Xl 
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Oril  AXy^TT/^H  Tin     4  "I\TT^  "FIT      ax /^  Why  go  out  when  you  can  have  so  much 
^  I  AY    HI    I  VI  h     A   \l    I   1^1     AY   fun  at  home?  Just  take  a  gander  at  the 

^^  -*-^  -»-■"   JL  XV/±TX_I_^  ±3±  1 X-A  A  X-JTiX*  kind  of  excitement  Mindscape  has  to  offer 
With  Indoor  Sports,  you  can  play  darts  without  putting  holes  in  your  walls,  ice  an  opponent  in  air  hockey,  become  a 
ping-pong  pro,  and  pick  up  some  spares  without  venturing  into  an  alfey. 

As  a  Harrier  jump-jet  ace  in  High  Roller,  you'll  be  doing  barrel  rolls  toward  designated  targets  without  waking  the 

neighbors. 

INDOOR  ^ 


BALAMCE*PBWOl______ __^^    ., 

Sop W  l/fesf/e  puts  you  in  the  ring  with  10  of  the 
biggest  baddest  bruisers  ever  to  perfect  the  turn- 
buckle  fly. 

Prepare  to  take  evasive  action  with  Infiltrator,  foW 
your  foes  from  your  'copter's  cockpit  and  then 
convert  to  covert  ground  action  behind  enemy  lines,  In  Balance  of  Power,  you  are  the  President.  And  the  burden  of 
global  responsibility  seems  so  real  you  may  wonder  why  you  don't  have  Secret 

Service  protection.  H/f*       J  .■^-^-^... 

What  do  you  have  to  lose?  For  much  less  than  the  cost  of  a  night  on  the         1V11I1CISCHT)C  "^■'^''"^ 
town,  Mindscape  makes  home  sweet  home  a  more  exciting  place  to  be. 
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Editor's  Notes 


Apple    has    announced    two    new 

Macintosh  computers.  Their  im- 
pressive specifications  will  further 
strengthen  the  already  impressive 
Macintosh  line:  More  than  one  mil- 
lion Macs  have  been  sold  and  are 
currently  selling  at  the  formidable 
rate  of  over  50,000  units  a  month. 
What's  more,  these  machines  estab- 
lish new  performance  standards 
which  foreshadow  the  consumer 
computer  of  tomorrow. 

The  older  machines,  the  Mac- 
intosh 512e  and  Macintosh  Plus, 
should  continue  to  sell  well  to 
home,  educational,  and  business 
buyers,  their  traditional  markets. 
The  new  machines  are  expected  to 
open  new  markets  for  Apple:  ad- 
vanced graphics  workstations, 
memory-  or  speed-intensive  busi- 
ness applications,  scientific  re- 
search, artifical  intelligence  studies, 
and  other  applications  not  ordinari- 
ly associated  with  "personal"  com- 
puters.  In  fact,  these  new 
computers  diverge  in  several  ways 
from  the  traditional  Macintosh  line 
as  well  as  from  the  traditions  of 
home  and  personal  computing. 

The  Macintosh  SE  (for  System 
Expansion)  is  the  long-awaited, 
open-architecture  Mac  which  al- 
lows the  attachment  of  third-party 
peripherals  through  one  expansion 
slot.  The  SE  also  permits  the  addi- 
tion of  a  variety  of  keyboards  be- 
cause it  includes  the  Apple  Il-style 
interface.  Although  quite  similar  to 
the  Macintosh  Plus,  the  SE  features 
greater  speeds  with  some  software, 
permits  add-ons,  and  Apple  expects 
it  to  compete  effectively  against  the 
PC  AT  and  AT  clones.  Two  impor- 
tant improvements  over  the  Mac 
Plus  derive  from  adjustments  to  the 
ROM  routines  and  system  software 
as  well  as  a  significant  increase  in 
hard  disk  communications. 

The  Macintosh  II  is  higher-end 
and  is  targeted  to  compete  with 
80386-class  machines  and  the  DEC 


VAX.  It  diverges  from  the  Macin- 
tosh line  in  several  important  re- 
spects. Featuring  an  optional  color 
display  with  as  many  as  256  simul- 
taneous colors,  this  machine  makes 
extraordinary  graphics  possible 
since  it  has  a  total  of  16.8  million 
different  colors  available. 

The  Macintosh  II  is  not  an  inte- 
grated package:  The  computer  itself 
is  in  a  box  similar  to  the  IBM  PC's; 
the  video  is  separate.  There  are  six 
internal  expansion  slots.  The  com- 
puter can  address  more  than  four 
gigabytes  of  memory  (limited  to 
two  gigabytes  of  internal  RAM). 
The  high-capacity,  full  32-bit  68020 
processor  operates  at  16  MHz,  twice 
as  fast  as  the  MacintosH  Plus. 

To  further  beef  up  the  power  of 
the  Mac  11,  Apple  offers  a  68881 
math  coprocessor  chip  which  can 
improve  the  speed  of  floating-point 
calculations  as  much  as  200  times. 
Also,  the  data-transfer  rate  has 
been  increased  to  over  one  million 
bytes  per  second. 

COMPUTE!  columnist  and  long- 
time Apple-watcher  David  Thorn- 
burg  thinks  the  Macintosh  II 
represents,  in  effect,  a  first  step  in 
an  entirely  new  direction  for  Apple. 
"Rather  than  look  at  the  personal 
computer  market  and  move  up- 
ward, it  seems  that  Apple  looked  at 
the  serious  workstation  market 
(populated  by  companies  like  Sun, 
Symbolics,  Apollo,  and  others)  and 
brought  high  performance  within 
the  price  range  of  small  businesses 
and  university  reseaich  labs." 

The  Mac  II,  Thomburg  says, 
w^ould  be  quite  a  bargain  for,  to  take 
one  example,  researchers  working 
in  artificial  intelligence.  "For  well 
under  $10,000,  one  can  get  the 
Macintosh  II  with  a  40-megabyte 
hard  disk,  lots  of  RAM,  and  a  splen- 
did version  of  LISP — all  this  would 
compete  quite  handily  with  sys- 
tems costing  five  times  as  much." 

What   makes    these    develop- 


ments intriguing  and  even  predic- 
tive for  personal  computer  users  is 
that  we've  been  here  before.  Recall 
the  LISA.  It  was  priced  beyond 
most  home  and  educational  com- 
puter users'  budgets  and  marketed 
to  a  similar  list  of  high-end  users. 
But  soon  after  EISA's  introduction, 
the  personal  computer  market  was 
treated  to  the  original  Macintosh, 
with  the  major  design  improve- 
ments of  the  LISA  intact. 

With  Apple's  announcement  of 
these  advanced  Macintoshes,  and 
the  other  high-performance  ma- 
chines coming  out  of  Commodore, 
Atari,  and  the  IBM  world,  we  can 
confidently  expect  to  see  consumer 
computers  in  the  next  few  years 
which  will  challenge  the  capabilities 
of  minicomputers.  And  all  these 
avant-garde  machines  seem  to  have 
a  commonality  of  design  and  fea- 
tures, as  if  the  trends  of  the  past 
several  years  were  now  converging 
and  leading  to  the  ideal  home  com- 
puter: extraordinarily  impressive 
graphics  resolution,  high-quality 
color,  massive  memory,  open  archi- 
tecture, sophisticated  sound  capabil- 
ity, and  ultra-high  speed. 

Of  course  we  can  always  look 
even  farther  down  the  road;  no  one 
would  mind  seeing  a  consumer  ver- 
sion of  the  massive,  state-of-the-art 
Cray  mainframe  on  a  chip.  But  for 
the  forseeable  future,  who  will  be 
dissatisfied  with  machines  which 
match  the  capabilities  of  all  but  the 
most  sophisticated  commercial 
graphics  w^orkstations? 


^il^^^  J^OmY^i^ 


"fiLJ^^ 


Richard  Mansfield 
Editorial  Director 
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Artistic 

Instructive 

books  from  COMPUTE! 


The 
Elementary 

..Atari 


You'll  find  expert  information,  useful  applications, 
intriguing  games,  graphics,  colorful  art,  music, 
programming  guides,  and  more  in  these  new 
Atari  ST-specific  books.  Beginning  to  advanced  ST 
users  will  benefit  from  the  applications  and 
tutorials  in  each  book.  And  as  always, 
the  books  are  written  in  COMPUTEl's  clear, 
understandable  style. 


COMPUTEl's  ST  Applications 

Brian  Flynn  and  John  J,  Flynn 

$16.95  ISBN  0-87455-067-X 

An  excellent  assortment  of  games  and  applications  for  busi- 
ness and  home,  written  in  BASIC,  COMPUTE I's  ST  Applications 
is  on  instant  library  of  programs  that  every  ST  owner  will  want 
to  have.  All  programs  hove  been  fuily  tested  and  ore  ready 
to  type  in  and  use  on  the  Atari  520  or  1040  ST.  There  is  a/so 
on  optionai  disk  ovo liable  for  $15.95  whicii  includes  fiie  pro- 
grams in  the  book. 

COMPUTEI'S  ST  Artist 
Selby  Bateman  and  Lee  Noei,  Jr. 

318.96  ISBN  0-87455-070'X 

A  step-by-step  guide  to  creating  dazzling  graphics  and  art 
on  the  Atari  ST  personal  computer.  Using  NEOctirome  and 
DEGAS\  this  book  shows  you  how  to  get  the  most  out  of 
these  excelient  painting  and  drawing  programs.  Tips  and 
techniques  provide  you  with  the  most  efficient  ways  of 
creating  graphics  and  demonstrate  how  to  produce  colorful 
art.  Examples  iiiustrate  each  step  and  show  off  all  the  visual 
power  of  the  Atari  ST  and  its  graphics  software.  Information  is 
included  on  the  newest  versions  of  NEOchrome  and  DEGAS 
Elite.  Ttiere  is  an  optional  companion  disk  aval  table  for 
$15,95  which  includes  artwork  from  the  book. 

*  A  product  of  Batteries  Included. 


#« 
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ST  ARTIST 
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COMPUTEI's  ST  Applications  Guide: 
Programming  in  C 

Simon  Field,  Kathleen  Mondis,  and  Dave  Myers 
$19,95  fSBN  0-87455-078-5 

COMPUTE Ts  ST  Appiicafions  Guide:  Programming  in  C  is  your 
complete  tutorial  to  designing  and  writing  effective  ST 
application  programs.  Practical  examples  show  you  how  to 
use  GEM  routines  to  develop  professional-looking  applica- 
tions of  your  own.  Explore  topics  such  as  disk  files,  menus, 
icons,  the  mouse,  sliders,  dialog  boxes,  programming  desk 
accessories,  music,  and  much  more.  For  intermediate  to  ad- 
vanced C  programmers. 

Tiie  Elementary  Atari  ST 

William  B.  Sanders 

$18,95  ISBN  0-87455-024-6 

A  clear,  easy-to-use  guide  to  the  Atari  ST,  this  book  takes 
you  through  everything  from  connecting  your  computer, 
loading  programs,  and  creating  graphics  and  music,  to  writ- 
ing your  own  programs. 


Order  your  Atari  ST  booic  today.  Cali  toil-free  800-346-6767  (in  NY  212-887-8525).  or  write 
COMPUTE!  Bool<s,  P.O.  Box  5038,  F.D.R.  Station,  New  Yoric,  NY  10150. 

NC  residents  odd  5  percent  sales  tax  and  NY  residents  add  8.25  percent  sales  tax. 

Shipping  and  handling:  $2.00  U.S.  and  surface  mail;  $5.00  airmail. 

Please  allow  4-6  weeks  for  delivery. 
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Mastering  Microsoft  Works 

Sharon  Zardetto  Aker 

$17.95 
ISBN  0-87455-042-4     267  pages 

Microsoft  Works  offers  a  system  of  four 

integrated  modules  for  home  and  business 

Macintosh  users.  This  comprehensive  guide 

and  tutorial  shows  how  to  use  Works 

efficientiy  and  easiiy.  Works  includes  a  word 

processor,  database,  spreadsheet. 

teiecommunications.  and  graphics,  and  this 

book  describes  how  to  master  Works — from 

creating  form  letters  with  the  word  processor 

to  tax  forms  with  the  spreadsheet.  Integrating 

the  modules  is  explained  and  illustrated.  More 

than  a  tutorial,  more  than  just  a  reference. 

Mastering  Miorosoff  Works  is  the  complete 

guide  to  this  state-of-the-art  software. 


COMPUTE!  books  are  available  outside  the  United  States  from 
subsidiaries  of  McGrow-Hifl  International  Book  Company. 


Readers'  Feedback 


The  Editors  and  Readers  of  COMPUTE! 


//  \/ou  have  anif  quest  ions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers* 
Feedback/'  COMPUTE!,  RO.  Box  5406, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  zee  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Proofreader  For  Tandy  1000 

I  recently  purchased  a  Tandy  1000  IBM- 
compatible  computer  and  subscribed  to 
your  magazine.  After  numerous  at- 
tempts, I  have  been  unable  to  make  the 
"IBM  PC/PCjr  Proofreader"  program 
work  on  my  computer.  I  would  like  to 
know  if  there  is  something  in  this  pro- 
gram that  keeps  it  from  working  on  my 
computer  and,  if  so,  will  I  have  the  same 
problem  if  1  try  to  enter  other  IBM  pro- 
grams from  your  magazine? 

Billy  Bolden 

At  COMPUTE!  we  make  every  effort  to 
insure  that  our  IBM  PC /PCjr  prrograms 
10 ill  also  work  on  the  dozens  of  IBM- 
compatible  77iodels  now  available.  Since 
zve  don't  have  one  of  each  different  model 
available  for  testing  purposes,  we  can't 
guarantee  that  every  program  ivill  work 
on  every  model  Nevertheless,  loe  have 
found  few  documented  cases  where  our 
programs  wouldn't  work  because  of  ma- 
chine incompatibility.  Most  problems  oc- 
cur on  systems  zohich  lack  some  required 
hardioare.  for  example,  programs  which 
require  a  color /graphics  adapter  card  (or 
equivalent  hardivare)  will  not  work  on  a 
system  that  has  only  a  monochrome 
adapter  card. 

The  ^'Proofreader"  is,  for  the  most 
part,  a  "plain  vanilla"  BASIC  program, 
using  no  fancy  programming  tricks.  The 
only  exception  is  in  line  160,  which  uses 
the  dynamic-keyboard  technique  to  insure 
that  LINE  INPUT  gets  the  entire  program 
line.  While  it's  possible  that  your  com- 
puter is  incompatible  with  this  program,  a 
inuch  more  likely  source  of  your  problem 
is  a  typing  error. 

Check  evenj  line  of  the  program  care- 
fully against  the  magazine  listing,  even 
those  lines  you  believe  you  typed  correct- 
ly. Even  experienced  programmers  make 
typing  mistakes,  and  a  single  typing  error 
can  have  drastic  effects,  depend tfig  on 
where  it  occurs  in  the  program. 


You  also  should  make  sure  that  the 
computer  is  in  Caps  lock  mode  (so  that  all 
letters  appear  in  uppercase)  except  zvhen 
the  listing  shoxvs  that  you  should  be  typ- 
ing a  lowercase  letter.  This  is  important 
because  the  Proofreader  is  sensitive  to  the 
case  of  characters.  These  three  lines,  for 
instance,  generate  three  different  check- 
sums when  typed  in  with  the  Proofreader, 
The  checksums  are  shown  in  front  of  each 
line. 

HN  10  print  "hi  there'' 
NN  10  PRINT  "HI  THERE" 
FN  10  PRINT  "Hi  there" 

in  COMPUTE!  listings  for  the  IBM 
PC/PCjr  and  compatibles,  BASIC 
keywords  such  as  PRINT  and  IF  are  al- 
zvays  in  uppercase.  Lowercase  letters 
usually  don't  appear  except  after  REM 
and  DATA  statements,  or,  as  shoivn  in  the 
example,  as  part  of  a  string  enclosed  in 
quotation  marks. 

We  don't  have  access  to  an  original 
Tandy  1000,  but  lue  do  have  one  of  the 
new  Tandy  lOOOEX  models.  After  receiv- 
ing your  letter,  we  tested  the  IBM 
PC /PCjr  Proofreader  program  on  our 
Tandy  lOOOEX  to  confirm  that  it  ivorks 
correctly.  The  program  works  the  same  on 
a  Tandy  lOOOEX  as  it  does  on  an  IBM 
PC /PCjr.  The  Proofreader  has  also 
worked  on  all  the  other  IBM-compatible 
models  we  haiw  tested. 


Sending  Printer  Escape 
Codes  In  Amiga  BASIC 

Here  is  some  information  that  will  be 
useful  to  any  Amiga  owner  who  wishes 
to  use  special  printer  effects  (double 
strike,  compressed  characters,  and  so 
on)  from  Amiga  BASIC.  I  have  had  no 
difficulty  printing  Amiga  screen  dumps 
on  my  Epson  MX-80.  However,  when  I 
tried  to  send  printer  escape  codes  from 
Amiga  BASIC,  they  had  no  effect.  This 
occurred  both  when  I  tried  to  send  the 
control  codes  with  LPRINT  and  when  I 
used  PRINT#  to  send  output  to  a  file  I 
had  previously  opened  to  LPTl:,  the 
printer  device.  In  these  circumstances, 
it  appears  that  all  printer  output  is  fil- 
tered according  to  the  printer  selected 
in  Preferences,  The  solution  is  to  open  a 
printer  file  using  the  PAR:  device  for  a 
parallel  printer  or  the  SER:  device  for  a 
serial  printer.  If  you  then  use  PRINT# 


to  output  CHRS(27)  followed  by  the 
appropriate  control  codes,  your  printer 
will  behave  as  it  should. 

Charles  Heckel 

Thank  you  for  the  information.  Although 
the  Amiga  BASIC  manual  doesn't  mention 
PAR:  or  SER:,  both  device  names  are  un- 
derstood by  AmigaDOS,  the  disk  operat- 
ing system  zvhich  BASIC  uses  for  input/ 
output  operations. 

Upgrading  To  An  Apple  IIgs 

I  am  very  impressed  by  what  I  have 
read  about  the  Apple  IlGS.  Do  you  have 
any  information  on  how  to  upgrade  a 
lie  to  IlGS  specifications?  I  understand 
that  the  65C816  microprocessor  is 
available  to  individuals  at  a  reasonable 
price,  and  I  would  like  to  purchase  one 
and  put  it  all  together. 

Mike  Mendoza 

When  Apple  premiered  the  lies,  they  also 
announced  that  He  models  could  be  up- 
graded to  lies  level  Although  they  offered 
only  complete  lies  systems  at  first,  up- 
grades should  become  available  sometime 
in  1987  for  around  $500. 

About  upgrading  it  yourself:  The 
65C816  chip  can't  simply  replace  a  He's 
6502  or  65C02  processor.  Its  pinouts—the 
signals  which  are  present  on  each  of  the 
chip's  leg-like  connecting  piJis—^are  dif- 
ferent enough  from  earlier  models  that 
they  aren't  interchangeable.  Another  new 
chip,  the  65C802,  is  pin-compatible — you 
just  plug  it  in,  and  it  runs,  it  has  the  same 
nezv  machine  language  instructions  as  the 
65C816,  but  like  the  older  chips,  it  can 
only  directly  access  64K  of  memory.  Al- 
though zve  haven't  tried  doing  it,  putting  a 
65C802  in  an  Apple  lie  sounds  like  an 
interesting  idea,  it  would  be  totally  com- 
patible with  existing  Apple  il  software, 
but  it  wouldn't  be  much  like  a  lies. 

Many  third- party  hardioare  makers 
offer  plug- in  cards  for  the  Apple  He  zvhich 
contain  a  65C816,  often  along  zoith  more 
memory.  These  accelerator  cards  can  in- 
clude quite  a  bit  of  RAM,  far  beyond  the 
He's  64K  or  128K,  as  zvell  as  a  high-speed 
clock  for  more  processing  power.  Some  of 
these  cards  can  run  eight -bit  Apple  II 
software  faster  than  a  lies  in  emulation 
mode.  For  users  who  only  want  more 
speed  and  storage  for  He  applications  like 
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/^rom  impossible  dungeons  and  split- 
JL  second  snares,  the  Bard  and  his  party 

emerge.  The  Sceptre^  so  lon^  for- 
gotten, gleams  with  power  Uke  an 
exploding  sun.  Even  Phenglei 
Kai^  the  ancient  archmage» 
bows  his  head  in  awe 

"1  smell  serpents!"  Slipfinger 
squeals f  stealing  away  like 
the  thief  he  is.  Two  arch* 
dragons  slither  out  of  the 
ground,  their  eyes  burn- 
ing with  the  relentless 
fury  of  treasure  lost. 

Protected  behind  the  flame 
lizards,  beyond  the  reach 
of  normal  weapons,  a  cack- 
ling wizard  begins  the  eerie 
chants  of  a  death  spelL  A  spell 
that  can  finish  the  Bard 
and  his  party 

The  time  has  come  to  battle-test  the 
magic  of  the  Destiny  Wand  -  and  reveal  the 
awesome  powers  of  The  Destiny  Knight." 


The  Best  Ever 

Dungeon  Role -Playing  Game 
50%  bigger  than  Bard's  Tale™ 

•  An  all -new  story  line. 
Six  cities  and  a  huge  overland 

wilderness  to  explore. 
•  Dozens  of  new  spells  - 
79  spells  in  all. 
•  New  real-time  dungeon 
puzzles.  You  have  to  get 
through  them  before  the 
clock  stops  ticking* 
•   Summon  and  name 
monsters  to  become  a  per- 
manent part  of  your  party* 
•   More  strategy  in  combat 
encounters  -  the  w^eapons 
and  spells  you  choose  de- 
pend  on  the  enemy's  distance. 
A  bank  and  casino, 
A  starter-dungeon  for  build- 
ing up  your  low- level  characters. 

•  6  guilds  for  easier  game  saving. 
Optional  use  of  Bard's  Tale  charac- 
ters. Bard's  Tale  experience  not  required. 

•   Cluebooks   available   for  both   Bard's 
Tale  and  Bard's  Tale  11™ 


You  get  a  ntrw  class  of  magic  user  -  the 

Archmagt*.  With  8  powerful  spells  tike 

Heal  All,  Fanskar's  Night  Lance,  and  the 

awesome  Mangar's  Mallot. 


There  arc  over  100  monsters, 

like  this  Kner  Drone.  Many  animated. 

All  dangerous. 


25  .scrolling  dunget>n  levels. 

All  in  color.  All  3-D,  Including  7 

different  Snares  of  Death,  a  new  kind  of 

real-time  puzzle. 


The  Bard's  Tale  II 

The  Destiny  Knight 

from 


ELECTRONIC  ARTS™ 


HOW  TO  GET  IT:  Visit  your  retailer,  or  call  80O-Z45-4525  (in  CA  call  8O0'562'ni2)  for  VISA  or  Mastercard  order*.  To  buy  by  mail,  send  a  check,  money 
order,  or  \1SA  or  Ntastercard  information  to  Electronic  Arts,  P.O-  Box  7530,  San  Mateo,  CA  94403.  The  price  is  $39.95  for  the  Commodore  64  version,  and  $49.95 
for  the  Apple  version.  Add  $5  for  shipping  and  handling  ($7  Car\adian).  Allow  1-4  weeks  for  delivery.  The  Bard's  Tale  11  and  Electronic  Arts  are  registered  trademarks 
of  Electronic  Arts,  Ultima  is  a  regbtered  trademark  of  Richard  Garriott.  Commodore  is  a  trademark  of  Commodore  Electronics  Ltd.  Wizardry  is  a  trademark  of  Sir- 
Tech  Sof  t^vare,  Inc.  For  a  copy  of  our  complete  catalog,  send  50c  and  a  stamped » self-addressed  envelope  to  Electronic  Arts  Catalog,  1820  Gateway  Drive,  San  Mateo,  C  A  94404. 


When  you  want  to  talk  computers. 


HOME  COMPUTERS. 


Atari  Computers 

520ST  Monochrome  System...... $499.00 

520ST  Color  System... 749.00 

1040ST  Color  System. 879.00 

800XL  64K  Computer. ...........63.99 

65XE  64K  Computer 97.99 

130XE  132K  Computer 129.00 

Atari  Peripherals 

1020  Color  Printer 29.99 

1050  Disk  Drive....- ...........129.00 

835  300  Baud  Modem 24.99 

850  Atari  Interface 109.00 

M301  300  Baud  Modem 39.99 

XMB01  aaColumn  Printer. 199.00 

XM804  ST  Printer............. .189.00 

ICD  PR  Connection....... 59.99 

Xetec  Graphix  p<L,  XE) 39.99 
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Atari  1040 

Color  System       *879 

Includes:  1040ST,  1  mb  RAM  with  3V2" 
drive  built-in,  192K  ROM  with  TOS,  Basic, 
Logo,  ST  language,  power  supply  and 
color  monitor. 
Commodore  Computers 
Commodore-64C  64K  Computerl  89.00 
Commodore^C  System  w/1802C539.00 
Commodore-128  128K  Computer259.00 

Commodore- 128  System..,.. 759.00 

Amiga  500  &  2000 call 

Commodore  Peripherals 

1660  Commodore  Modem........... 59. 99 

1670  Commodore  Modem... ...99.99 

1541C  Disk  Drive 189.00 

1571   Disk  Drive .239.00 

1802  Color  Monitor.... 199.00 

1902  Color  Monitor 299.00 

Amiga  1010  31/2"  Ext.  Drive 219.00 

Amiga  1020  5Va"  Ext.  Drive 189.00 

Amiga  1080  RGB  Monitor ..269.00 

CI 28  51 2K  Expansion  Board.....  179.00 

PPt  Parallel  Printer  Interface 34.99 

Xetec  S/Graphix  BK.. .69.99 

Micro  R&D  MW350 44.99 


MS/DOS  SYSTEMS. 


MULTIFUNCTION  CARDS. 


PC-TOO  20  Meg       ^ 
XT-Compatible  ^515151 

AT&T  6300 .......from  $1299.00 

Compaq ...from  1699.00 

Cordata ......from   899.00 

IBM-XT from    1099.00 

IBM-AT.... from   2699.00 

Leading  Edge... from  999.00 

NEC  Muttispeed ...from  1499.00 

Panasonic  Business  Partnerfrom  799.00 
Toshiba  1100  Plus. from  1749.00 

AST 

Six  Pak  Plus  PC/XT ...$169.00 

Six  Pak  Premium  PC/XT..... 249,00 

Advantage-AT  128K 339.00 

Everex 

EV-221  Evergraphics  Mono ...139.00 

EV-640  Edge  Card 259.00 

Hercules 

Color  Card....... 159.00 

Graphics  Card  Plus ........209.00 

Rfth  Generation 

Logical  Connection  256K 329.00 

IDEAssociates 

IDE-5251  Local  Emulator 579.00 

Intel 

1110  PC  Above  Board 279.00 

Inboard  386K  OK Call 

NEC 

GB-1   EGA........... .................409.00 

Quadram 

Quad  Ega+  Graphics  Adapter.... 299. 00 

Silver  Quadboard ..129.00 

Expanded  Quadboard ...119.00 

VIDEO  7 

EGA  Video  Deluxe 389.00 

Zuckerboard 

Color  Card  w/Parallel... 89.99 

Monochrome  Card  w/Paratlel.. ..99.99 

576K  Memory  Card 59.99 


DRIVES. 


Allied  Technology 

Apple  Half-Heights.... ......$109.00 

Controller  Card 39.99 

CMS 

Drive  Plus  20MB  Internal  Card.... 399.00 

Everex 

Stream  20  20MB  Tape-Backup.... 669.00 

Genie  Technology 

210  H  10  +  10  subsystem ...1749.00 

Indus 

Atari  GT  Disk  Drive 189.00 

Commodore  GT  Disk  Drive.........  189.00 

Iomega 

A210H  10  +  10  Bernoulli  Box 1899.00 

A220H  20+20  Bemoulli  Box..... 2499.00 

Irwin 

110  D  10MB  Tape  backup.......... 31 9.00 

Mountain  Computef 

Drive  Card  20MB  Intemal  Card... 499.00 

A220  20  +  20  Subsystem 2199.00 


Racore  Jr.  ^naa 

Expansion  Chassis    ^299 


DISKETTES. 


ST-225  w/Controller....... ..399.00 

Toshiba 

Haif-Height  360K  intemal. ....89.99 

Maxell 

MD-1  SS/DD  51/4"........ $8.99 

MD-2  DS/DD  5V4".... .........10.99 

MD-2HD  Hi-Density  BVa". 21.99 

MF-1  SS/DD  31/2" 12.99 

MF-2  DS/DD  31/2" 21.49 

CS^500  20Mb  Streamer  Tape 11.99 

CS-600  60Mb  Streamer  Tape 13.49 

Sony 

MD1  SS/DD  5V4" 7.99 

MD2  DS/DD  5V4" .,,..9.49 

MD-2HD  Hi-Density  51/4" 20.49 

MFD-1  SS/DD  31/2"........... .....12.99 

MFD-2  DS/DD  3V2".. ..19.99 


y 


COMPUTER  MAIL  ORDER 


When  you  want  to  talk  price. 


MONITORS. 


Amdek  410  12"       ,t- -^ 
TTL  Monitor  '''159 

Amdek 

Video  310A  Amber  TTL $149.00 

Color  722  RGB,  CGA/EGA 479.00 

Magnavox 

8CM516  RGB  Monitor-80 289.00 

7BM623  PC  Monitor-80  Amber 99.99 

8CM873  14"  Multimode.. ....... ...549.00 

Mitsubishr 

XC  1409C  14"  RGB.... .....319.00 

NEC 

12"  TTL  Green  or  Amber.. 109.00 

JC-1401P3A  Multi-Sync 579.00 

Princeton  Graphics 

MAX-12  12"  Amber  TTL 169.00 

HX-12  12"  Color  RGB 429.00 

HX-12E  12-RGB/EGA........ ..499.00 

Quadram 

8460  Quadchrome  Enhanced.... 439.00 

Taxan 

Model  124  12"  Amber 119.00 

Anchor 

6480  C64/128  1200  Baud..... $119.00 

Omega  80  Amiga 129.00 

VM520  ST520/1040  1200  Baud...  139.00 

Expressi  Pai200  Half  Card 149.00 

Everex 

Evercom  1200  Baud  Internal 119.00 

Hayes 

Smartmodem  300  External 139.00 

Smartmodem  1200B  Internal....... 359. 00 

Smartmodem  24O0B  Internal....... 539.00 

Practtcat  Peripherals 

Practical  Modem  pai2D0 139.00 

Quadram 

Quadmodem  II  1200  Baud 299.00 

Supra 

MPP-1064  AD/AA  C64 .....69.99 

1200AT  1200  Baud  Atari 149.00 

U.S.  Robotics 

2400  Baud  Internal.... 189.00 


MODEMS. 


PRINTERS. 


Canon 

LBP^AI  Laser,  8  Page/Min $1899.00 

Citizen 

MSP-10  160  cps.  80-CDlumn 319.00 

Premier  35  35  cps  Daisywheel.... 499.00 

C.Hoh 

8510-SP  180  cps,  80-Column.. ...... ..Call 

310SEP  Epson/IBM  8aColumn .Call 

Cordata 

The  Desktop  Printshop  Laser 2199.00 

Epson 

LX^6  120  cps,  Dot  Matrix. 199.00 

FX-86E  240  cps,  8aColumn Cal! 

FX-286E  240  cps,  132-Column Call 

EX-800  300  cps,  SOCoiumn 449.00 

LQ-800  180  cps,  24-Wire  Printhead..Call 
Hewlett  Packard 

Thinkjet 399.00 

Juki 

6300  40  Cps  Daisywheel 659.00 

6100  10  cps  Daisywheel 389.00 

551 OC  Color  Dot  Matrix 349.00 

NEC 

Pinwriter  660  24  Wire ....439.00 

Pinwriter  760  24  Wire.. 689.00 

Okidata 

ML-182  120  cps,  80-Column 239.00 

ML-192+   200  cps,  80<k}lumn....369.00 

ML-193+  200  cps,  132-Column. Call 

ML-292  200  cps,  80-Column. ...... .....Call 

Panasonic 

KX-1080i  120  cps,  80-Column 219,00 

KX-1091i  180  cps,  SO-Column 299.00 

KX-1592  180  cps.  132-Column 439.00 


Star  NX-10  d:«/%rk 

120  cps  Dot  Matrix  ^209 

star  Micronlcs 

NX-10C  120  cps,  C64  Interface. 2 19.00 

NX-15  120  cps,  132-Column 369.00 

Texas  Instrument 

TI-855  150  Cps,  80-Column 599.00 

Toshiba 

P321  216  cps,  24-Pin  Printhead479.00 
P341  216  cps,  24-Pin  Printhead589.00 


SOFTWARE. 


FOR  AMIGA 
Aegis  Development 

Animator  &  images ........$99.99 

Commodore 

Textcraft/Graphcraft , ..,..59,99 

Electronic  Arts 

Deluxe  Paint .64.99 

(Vlicroilluslons 

Dynamic  CAD 359.00 

Micro  Systems 

Scribble  Word  Processor ...79.99 

Sublogic 

Flight  Simulator  II 37.99 

The  Print  Shop  For  ibm  *39^^ 

For  Commodore  &  Atari  *29 

FOR  ATARI  ST 
Access 

Leader  Board  Golf.. 27.99 

Batteries  Included 

D.E.G.A.S.  Elite .....59.99 

Microprose 

Silent  Service.. 29.99 

Paradox 

Wanderer  3D.......... 29.99 

Sublogic 

Flight  Simulator  II 37.99 

Timeworks 

Swiftcalc .......54.99 

FOR  IBM 
Ashton-Tate 

d-Base  III  + 429.00 

5th  Generation 

Fastback  Utility ...89.99 

IMSI 

Optimouse  w/Dr.  Halo. 99.99 

Lotus 

Lotus   1-2-3 329.00 

MicroPro 

Professional  4.0  w/GL 239.00 

Microstuf 

Crosstalk  XVI ..,.,,.......89.99 

P.F.S. 

First  Choice ...119.00 

Satellite  Systems 

Word  Perfect  4.2 209.00 


In  the  U.S.A.  and  in  Canada 

Call  toll-free:  1-800-233-8950. 

Outside  the  U.S.A.  call  717-327-9575  Telex  5106017898 
Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 
CMO.  477  East  Third  Street,  Dept.  A205,  Williamsport,  PA  17701 

ALL  MAJOR  CREOn"  CARDS  ACCEPTED. 

POLICY:  Add  3%  (minimum  $7.00)  shipping  and  handling.  Larger  shipments  may  require  additional  charges.  Personal  and  company  checks  require  3  weeks 
to  clear.  For  faster  delivery  use  your  credit  card  or  send  cashier's  check  or  bank  money  order.  Pennsylvania  residents  add  6%  sales  tax  All  prices  are  U  S  A 
pnces  and  are  subject  to  change  and  all  items  are  subject  to  availabifity.  Defective  software  will  be  replaced  with  the  same  item  only.  Hardware  will  be  replaced 
or  repaired  at  our  discretion  wsthin  the  tenns  and  limits  of  the  manufacturer's  warranty.  We  cannot  guarantee  compatibility.  All  sales  are  final  and  returned  shipments 
are  subject  to  a  restocking  fee. 


Apple  works,  this  option  is  uwrth 
considering. 

But  a  lies  has  a  lot  more  than  a  new 
processor  and  more  RAM.  The  new  video 
and  sound  circuitry  are  only  available 
from  Apple.  They  are  also  the  only  source 
for  the  ToolBox  software  built  into  each 
Ugs,  supporting  Macintosh-like  windows 
and  menus.  Since  most  commercial  devel- 
opers plan  to  use  all  these  new  features, 
the  only  foreseeable  way  to  make  your  He 
into  a  true  lies  is  through  your  Apple 
dealer.  And,  for  this  operation,  upgrade 
isn't  exactly  the  right  word.  Ail  the  He's 
electronic  innards  are  replaced  with  a 
new  main  circuit  board.  The  only  parts 
that  are  kept  are  the  cabinet,  power  sup- 
ply, and  keyboard.  (Your  old  interface 
cards  will  still  work,  though,)  But  when 
enough  new  lies  software  has  arrived, 
this  procedure  could  be  a  very  effective 
means  for  entering  the  16-bit  world. 

Quiet  Disk  Format  For 
Commodore  128 

The  excellent  short  program  written  by 
Martin  Filbeau  for  the  Commodore  64 
("Readers'  Feedback/'  December  1986) 
does  indeed  prevent  the  1541  disk 
drive's  head  from  rattling  when  you 
format  a  disk.  But  that  program  doesn't 
work  on  the  Commodore  128  in  128 
mode.  Here  is  a  modified  version  of  the 
program  that  w^orks  in  128  mode  with 
either  a  40'Column  or  80-column 
monitor, 

AG  5  PRINT"lCLR} tGRNj":COLOR  4 

, 1 : COLOR  0 , 1 
MG  10  PRINT" {2  DOWN} INSERT  REF 

ERENCE  DISK" 
QJ  20  GOSUB  270 
MP  30  OPENl,8,15,"IO" 
ME  40  OPEN2,8,2, "#" 
KR  50  PRINT#1, "Ul";270r 1;0 
AQ  60  INPUT#1,N,M?,T,S:PRINT  N 

,M$,T,S 
CR  70  IF  N=0  THEN  130 
GH  80  PRINT  N,M$rT;S 
GF  90  PRINT" {2  DOWN} TRY  AGAIN? 

(Y/N)" 
DK  100  GOSUB  280 
PF  110  GET  F?:IF  F$="Y"  THEN  5 

0 
EG  120  CLOSE  2: CLOSE  1:END 
KG  130  PRINT" {4  DOWN} REMOVE  RE 

FERENCE  DISK" 
FB  140  PRINT" {DOWN} INSERT  BLAN 

K  DISK" 
FM  150  GOSUB  270 
FM  160  FOR  1=1  TO  25 
BK  170  READ  D: D$=D$+CHR$ { D ) 
MR  180  NEXT 
KE  190  PRINT#1, "M-W";CHR$(0) ;C 

HR$(5)rCHR$(25);D$ 
KA  200  PRINT#1, "M-W";CHR$(32) r 

GHR$ ( 6 ) ; CHR? ( 3 ) ; CHR$ ( 10 

)rCHR?(64):CHR$(15) 
PS  210  POKE  208,0 
JK  215  PRINT"{CLRH2  COVIN}" 
HR  220  INPUT "DISK  NAME";DNAM$ 
RA  230  INPUT" [2  SPACES JDISK  ID 

" ;D1D$ 
KJ  240  PRINT" [4  DOWN} FORM ATT IN 

G  .  .  .  " 


DO 

250 

PRIt3T#  1 ,  "U3  :  "  ;  DNAM$  "  ,  "D 
ID$ 

MC 

260 

GOTO  120 

QD 

270 

PRINT" {4  DOWN} PRESS  ANY 
KEY  TO  CONTINUE" 

HK 

280 

PRINT 

JE 

290 

POKE  208,0 

AJ 

300 

WAIT  208,1 

PK 

310 

RETURN 

EC 

320 

DATA  169,78,141,0,2,169 
,48,141, 1, 2,169,11, 141, 
42,2 

CD 

330 

DATA  32,238,193,169,1,1 
33,81,76, 13, 238 

Carlos  Vidales 

Thanks  for  the  modification.  Because  of 
the  length  of  this  program,  zve've  added 
checksums  for  our  'Automatic  Proofread- 
er'* program.  If  you're  unfamiliar  with  the 
Proofreader,  see  "COMPUTEI's  Guide  to 
Typing  In  Programs"  elseivhere  in  this 
issue. 


DOS  3.3  CATALOG 
From  Applesoft 

I  am  using  an  Apple  lie  and  would  like 
to  know  how  to  read  a  DOS  3.3  catalog 
into  a  BASIC  array.  Can  you  show  me 
how  to  do  it  and  explain  how  it  works? 
Steven  Pinckney 

DOS  3,3,  unlike  ProDOS,  provides  no 
easy  way  to  do  this.  However,  it  can  be 
done.  The  following  code  adapts  part  of 
"facket  Lister,"  a  program  that  appeared 
in  the  September  1986  issue  of  COMPUTE!: 

20  DIM  TB$ ( 144) ,WSt 1000) 

80  FOR  I  =  768  TO  779:  READ  A 

t     POKE  I, A;  NEXT 
90  C  =  0:P1  =  WS(0)  --  WS(0)  + 
PEEK  (131>:P2  =  WS(0)  -  W 
5^0)  +  PEEK  (132) 
100  POKE  769, PI:  POKE  770, P2 
110  POKE  54,0:  POKE  55,3:  POK 
E  56,11:  POKE  57,3:  CALL 
1002 
120  PRINT  CHR*  (4) ; "CATALOG" 
125  PRINT 
130  POKE  768,173:  POKE  769, PI 

:  POKE  770, P2 
140  POKE  54,11:  POKE  55,3:  PO 
KE  56,0:  POKE  57,3:  CALL 
1002 
150  FOR  I  =  0  TO  4:  INPUT  A$: 

NEXT 
160  INPUT  TB*(C):  IF  TB*(C)  - 

""  THEN  170 
165  C  =  C  +  1:  GOTO  160 
170  POKE  54,240:  POKE  55,253: 
POKE  56,27:  POKE  57,253: 
CALL  1002 
190  DATA  141,0,64,238,1,3,208 


200  DATA 


58,: 


;,96 


The  program  starts  by  dimensioning 
two  arrays,  TBS  and  WS.  TBS  is  a  table  of 
strings  to  hold  the  directory  entries.  WS  is 
just  a  big  block  of  storage  to  be  used  as 
ivorkspace.  line  SO  sets  up  a  short  ma- 
chine language  routine  which  will  be  used 
for  trapping  input  and  output.  The  next 
line  uses  a  trick  to  find  out  the  address 


where  an  array  variable  is  stored.  Most 
versions  of  BASIC  have  a  function  called 
VARPTR  to  do  this,  but  Applesoft 
doesn't,  PI  gets  the  eight  loiv  bits  of  the 
address,  and  P2  gets  the  eight  high  bits. 

In  line  100,  the  address  of  the  ivork- 
space is  stored  in  the  machine  language 
routine,  line  110  hooks  up  this  routine  to 
intercept  all  input  and  output  operations, 
then  tells  DOS  about  the  7iezc  I/O  rou- 
tines zvith  the  CAll  1002  statement. 
(Othencise,  DOS  would  be  completely 
disconnected.)  As  it's  hooked  up  at  this 
point,  the  Ml  routine  will  store  all  output 
in  the  workspace  and  disregard  requests 
for  input. 

Lines  120  and  125  perform  the  CAT- 
ALOG operation,  printing  all  the  in  for- 
mat  ion  into  the  workspace.  In  the  next 
line,  the  ML  routine  is  modified  slightly  to 
function  as  an  input  routine,  and  the 
ivorkspace  pointer  is  reset  to  the  start  of 
the  WS  array.  Then  the  I/O  hooks  are 
changed  so  that  input  operations  will  read 
from  the  workspace,  while  output  requests 
will  be  ignored. 

After  line  150  skips  four  header  lines, 
lines  160  and  165  read  each  catalog  entry 
into  the  TB$  array.  Variable  C  keeps  count 
of  the  number  of  files  found.  Finally,  line 
170  resets  the  I/O  hooks  to  the  normal 
values  for  a  40-colunin  display,  and  the 
program  ends. 


Phantom  Opcodes  On 
The  6502 

I  have  a  question  about  6502  assembly 
language.  1  know  that  every  machine 
language  command  is  contained  in  one 
byte,  which  may  be  followed  by  one  or 
two  additional  bytes.  For  example,  the 
byte  value  for  the  LDA  immediate  in- 
struction is  169  ($A9).  Some  of  the  pos- 
sible byte  values,  however,  are  not 
assigned  to  an  instruction,  A  machine 
language  monitor  prints  ???  when  you 
try  to  disassemble  one  of  these  instruc- 
tions. What  do  these  instructions  do 
when  the  computer  executes  them?  I 
have  heard  that  they  give  the  combined 
effect  of  two  other  instructions. 

Gergeiy  Viczian 

Not  all  of  the  256  possible  one-byte  values 
are  defined  as  valid  machine  language 
instructions  for  the  6502/6510/8502  mi- 
croprocessor. The  remaining  values  are 
officially  undefined,  meaning  that  the  de- 
signers of  the  p^rocessor  do  not  intend 
them  to  be  used  as  instructions  at  all. 
Many  machine  language  monitors  flag 
such  values  with  ???  to  indicate  that  the 
byte  value  could  not  be  interpreted  as  a 
valid  opcode. 

If  you've  been  trying  to  learn  ma- 
chine language  by  disassembling  other 
people's  programs,  you  may  see  many 
places  where  it  appears  on  the  surface 
that  an  undefined  opcode  has  been  used. 
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Is  Getting  The  Answer  To 

Software  Problems 

A  Bigger  Problem  Than 

The  Problem? 


DonH  Stay  on  hold 
when  there's  help  online 
from  CompuServe^ 

Software  Forums* 


The  new  upgraded 
version  of 
your  software 
locks  up. 
And  every 
time  you 
reboot, 
you  get  stuck  in  the 
same  place  in  the  program. 

You've  chucked  the  manual, 
because  you Ve  done  exactly  what  it 
tells  you  to  do  six  times  already 
So  you  call  the  software  company 

Now  you  spend  half  a  day  beating 
your  head  against  a  brick  wall  of 
busy  signals,  ranting  at  recorded 
messages,  hanging  around  on  hold. 
And  you  still  don't  get  the  solution 
to  your  problem. 

Meanwhile,  progress  is  stopped 
and  your  profits  are 
dribbling  away  But 
wait.  There's  help... 

Several  prom- 
inent, progressive 
software  publishers 
recognize  this 
problem,  and 

working  with  CompuServe, 
have  developed  a  solution^ — 
CompuServe  Software  Forums. 

Now  you  can  go  online  with 
experts  from  the  companies  that 
produced  your  software  and  get 


prompt,  written  answers  to  your 
specific  problems.  ^^  You  can 
even  talk  with    ^^^^  the  actual 
software  r  /^-w 

developers.      ^^^ 


Aldus;  Ashton-Tate"  Autodesk! 
Borland  International"  Creative 
Solutions'  Digital  Research'  Living 
Videotext'  Lotus'  Inc.,  Microsoft^ 
MicroPro*  Misosys  Inc!  and  Software 
Publishing"  all  have  CompuServe 
Software  Forums. 
And  we  keep 
adding 
more. 


CompuServe's  large  subscriber 
base  also  puts  you  in  touch  with 
thousands  of  other,  often  more  expe- 
rienced, users  of  the  same  software. 
You'll  find  they  can  give  you  lots 
of  creative  ways  to  get  the  most  out 
of  your  software. 

And  software  forums  are  the  best 
way  to  learn  about  product  updates, 
new  product  announcements,  new 
ways  to  expand  the  uses  of  your  soft- 
ware, and  offer  free  uploads  of  your 
own  programs. 

Our  online  electronic  magazines 


frequently  publish  software  reviews. 
And  you  can  find  help  for  many 
other  software  products  in  our  other 
computer-related  forums  for  IBM"^ 
Tandy!  Atari'' Apple'  Commodore? 
Tr  and  others. 

The  last  thing  you 
need  when  you've  got 

a  software  problem 

^  is  a  bigger 
problem 
getting  answ^ers. 
So,  from  now 
on,  get 
prompt, 
informed 
answers  on 
CompuServe  Software  Forums. 

To  buy  your  CompuServe 
Subscription  Kit,  see  your  nearest 
computer  dealer.  Suggested  retail 
price  is  $39.95. 

To  order  direct 
or  for  more 
information, 
call  800-848-8199 
(in  Ohio,  614- 
457-0802). 

If  you're 
already  a 
CompuServe 
subscriber,         ;  ; 
just  type    ^*^^-^ 
GO  SOFTWARE 
at  any !  prompt. 


CompuServe- 

Intomiation  Servicea  RQ  Box  20212 

5000  Arlington  Centre  BMJ,  Columbus,  OH  43220 


An  H&R  Block  Company 


Instruction 

Abs 

Abs,X  Abs,Y 

Zer  Zer,X 

Zer,Y 

(Ind,X) 

(Ind>,Y 

Imm 

ASO  (ASUORA) 

OF 

IF        IB 

07     17 

03 

13 

OB 

RLA   (ROL.AND) 

2F 

3F        3B 

27     37 

23 

33 

2B 

LSE    (LSR.EOR) 

4F 

5F        5B 

47     57 

43 

53 

RRA  (ROR.ADC) 

6F 

7F        7B 

67     77 

63 

73 

AXS   (STX.STA) 

8F 

87 

97 

83 

LAX   (LDXXDA) 

AF 

BF 

A7    B7 

A3 

B3 

DCM  (DECCMP) 

CF 

DF       DB 

C7    D7 

C3 

D3 

INS    (INC.SBC) 

EF 

FF        FB 

E7     F7 

E3 

F3 

ALR   (LSR.EOR) 

4B 

ARR  (ROR,ADC) 

7B 

OAL  (TAX;LDA) 

AB 

SAX   (DEX,CMP) 

CB 

NOP 

lA,  , 

3A,  5A,  7A,  DA,  FA 

SKB 

80,  82,  C2,  E2,  04, 

14,  34,  44, 

54,  64, 

74,  D4, 

F4 

SKW 

OC,  IC,  3C,  5Q  7C,  DC  FC 

ASO  ASL  then  ORA  the  result  with  the  accumulator 

RLA  ROL  then  AND  the  result  with  the  accumulator 

LSE  LSR  then  FOR  the  result  with  the  accumulator 

RRA  ROR  then  ADC  the  result  from  the  accumulator 

AXS  Stort  the  result  of  A  AND  X 

LAX  LDA  and  LDX  with  the  same  data 

DCM  DEC  memory  and  CMP  the  result  with  the  accumulator 

INS  INC  memory  then  SBC  the  result  with  the  accumulator 

ALR  AND  the  accumulator  with  data  and  LSR  the  result 

ARR  AND  the  accumulator  with  data  and  ROR  the  result 

OAL  ORA  the  accumulator  with  #$EE,  AND  the  result  with  data,  then  TAX 

SAX  SBC  data  from  A  AND  X  and  store  result  in  X 

NOP  No  operation 

SKB  Skip  byte  (that  is,  branch  of  +1) 

SKW  Skip  word  of  two  bytes  (that  is,  branch  of  +2) 


However,  you  should  be  aware  that— in 
the  vast  majority  of  cases— when  you  see 
???  in  a  section  of  disassembled  code,  you 
are  not  looking  at  a  undefined  opcode.  It's 
tnuch  more  likely  that  you've  tried  to 
disassemble  a  section  of  memory  that 
doesn't  contain  machine  language,  hut 
rather  contains  data  tables,  message  text, 
jump  vectors,  or  the  like.  Since  it's  only 
coincidental  that  the  values  of  these  types 
of  data  will  fall  in  the  range  of  valid 
opcodes,  most  bytes  in  such  areas  will 
show  as  ???.  Ufi defined  opcodes  are  very 
rarely  used.  If  you  disassemble  the  entire 
ISK  of  BASIC  and  Ker7ial  ROM  in  a  Com- 
modore 64 f  you'll  find  many  places  ivhere 
the  data  disassembles  as  ???,  but  none  of 
these  is  truly  an  undefintd  opcode. 

Some  of  the  undefined  opcodes^ 
sometimes  called  quasi-opcodessimply 
lock  up  the  computer.  The  computer  locks 
up  completely  when  you  attempt  to  exe- 
cute any  byte  ending  with  $3,  $7,  $B,  or 
$F,  and  most  byte  values  endijig  with  $2. 

Other  undefined  opcodes  cause  the 
processor  to  perform  a  meaningful  task. 
Some  of  these  simply  replicate  a  standard 
instruction:  For  example,  there  are  six 
byte  values  ($1A,  $3A,  $5A,  $7A,  $DA, 
and  $m  that  duplicate  the  NOP  (No 
operation)  opcode.  Others,  such  as  SKB 
(SKip  a  Byte)  and  SKW  (SKip  a  Word)  do 
jobs  that  ire  not  done  by  any  standard 


instruction.  The  remaining  quasi-opcodes 
generally  cotnbine  the  effects  of  two  stan- 
dard instructions.  For  example,  the  quasi- 
op  LAX  loads  both  the  A  and  X  registers 
with  the  same  value,  just  as  if  you  had 
performed  LDA  and  LDX  in  sequence  with 
the  same  value. 

Quasi-opcodes  have  few  practical 
uses.  You  might  save  a  byte  here  or  there 
by  performing  two  jobs  with  one  instruc- 
tion, but  most  quasi-ops  perform  pretty 
obscure  functions,  and  since  ordinary 
monitors  and  assemblers  don't  allow  for 
them,  it's  difficult  to  write  or  even  disas- 
semble programs  containing  such  codes. 
Because  quasi-ops  show  up  as  ???  in  an 
ordinary  monitor,  they  have  been  used 
occasionally  as  a  concealment  device  in 
copy-protected  commercial  programs.  But 
for  ordinary  programming,  they  are  prob- 
ably more  trouble  than  they're  worth.  The 
table  above  lists  all  the  usable  quasi- 
opcodes,  taken  from  Programming  the 
Commodore  64,  by  Raeto  West  (COM- 
PUTE! Books).  The  codes  shown  in  bold- 
face type  are  thought  to  be  the  most 
reliable. 


De  Re  Atari  Lives 

1  just  read  a  letter  in  the  February  1987 
installment  of  this  column  referring  to 
the  availability  of  the  Atari  reference 


book  De  Re  Atari,  Your  readers  may  be 
interested  to  know  that  a  large  supply 
of  these  books  is  available  for  $10  per 
copy  from  this  computer  dealer. 

B  &C  Computervisions 

3283  Kifer  Rd. 

Santa  Clara,  CA  95051 

They  also  stock  many  other  hard-to- 
find  Atari  publications  and  products. 

M.  J.  White 

Thank  you  for  this  information. 

BUMPing  In  BASIC  7.0 

I  am  writing  a  game  for  my  Commo- 
dore 128  and  1  have  run  across  a  prob- 
lem with  the  BUMP(2)  function.  From 
what  I  can  determine,  the  BUMP  values 
to  signal  sprite  collisions  should  be  as 
follows: 


Sprite 

0 
1 
2 
3 
4 
5 
6 
7 


Bump  Value 

1 

2 

4 

8 

16 

32 

64 

128 


I  am  getting  other  numbers  such  as 
12, 18.  36,  and  63.  What  do  those  num- 
bers mean? 

Jamie  C  hula  da 

The  mysterious  numbers  indicate  that  two 
or  more  sprites  are  colliding.  The  BUMP 
function  reads  the  contents  of  the  128's 
sprite-collision  registers  and  returns  it  to 
BASIC.  BUMP(l)  reports  sprite-to-sprite 
collisions — the  same  as  performing 
PEEK(53278)  on  the  Commodore  64— and 
BUMP(2)  reports  sprite-to-foreground 
collisions— the  same  as  PEEK(53279). 
Each  bit  of  the  collision  register  is  as- 
signed to  one  of  the  computer's  eight 
sprites.  When  sprite  0  is  involved  in  a 
collision,  bit  Q—the  lowest  bit  of  the  colli- 
sion register — is  set  to  1.  When  sprite  1  is 
involved  in  a  collision,  bit  1  is  set  to  1,  and 
so  forth.  The  second  column  of  nu?nbers 
that  you  list  indicates  the  decimal  values 
for  each  bit  position  in  the  collision 
register, 

BUMP  returns  the  sum  of  all  the  bits 
in  the  sprite-collision  register.  Thus,  the 
number  12  indicates  that  sprites  2  and  3 
are  touching  one  another.  Sprite  Ts  bit 
value  is  4,  and  sprite  3's  bit  value  is  8. 
When  you  add  those  two  bit  values  togeth- 
er, you  get  12.  Similarly,  the  number  18 
indicates  that  sprites  1  and  4  are  colliding 
(2  -^  16  =  18). 

The  BUMP  value  tells  you  which 
sprites  are  currently  involved  in  some 
collision.  But  if  more  than  two  sprites  are 
on  the  screen,  it  won't  necessarily  tell  you 
which  sprite  is  touching  a  given  sprite  or 
foreground  object.  For  iyistance,  the  value 
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so  REAL  IT  HURTS 

GFL  Championship  FootibaU™ 

The  way  computer  football  should  be. 


Amiga  screen 


Other  football  games  put  you  in  the  grandstands, 
looking  down  on  the  action.  Now  see  what  it's  like 
from  the  player's  perspective — looking  out  of  your 
helmet  at  an  angry  linebacker  headed  straight  for 
you,  and  no  blockers  in  sight. 

With  GFL  Championship  Football;"  you've  got 
the  first  football  simulation  that  actually  takes  you 
down  on  the  field,  taking  the  hits  and  making  the 
plays.  And  it*s  more  than  just  a  pretty  picture — 
you  really  get  the  feel  of  playing  football. 

No  other  football  simulation  gives  you  so  many 

features: 

•  in-the-helmet  perspective  puts  you  at  ground 


G  V\.    CHAMPIONSHIP 

FOOTBALL 


level  on  the  playing  field. 

•  Scrolling'Screen  animation  moves  you  up  and 
down  the  playing  field. 

•  Realistic  sound  effects  let  you  hear  everything 
from  the  quarterback  calling  the  signals  to  the 
sound  of  your  own  footsteps. 

•  Team  selection  screens  allow  you  to  set  the  play- 
ing  style  of  your  team  and  that  of  your  opponent. 

Whether  you* re  taking  on  bone-crunching  action 
against  a  friend,  or  going  up  against  any  of  the  27 
computer-controlled  teams  in  the  GFL,  this  is  the 
one  that  puts  you  where  the  action  is! 


Available  now  for  the  Commodore  64/128, 
IBM  PC  and  Tandy  1000,  Apple  11,  Amiga,  Atari  ST  and  100%  compatible  computers. 
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Amiga  screen 


CommodoiT  64-128  isfreen 


Commodore  64-128  screen 


Gjmniodon.^  64-128  scrttn 


jBimm/^ 


Cajncsiar  Ls  a  trademark  of  Attivisktn  Int:  Commodore  64,  1 28  and  Amiga  arc  irademarks  of  Commotbrc  Ekctronies  Limited.  IBM  K'  is  a  trademark  of  Imemaiinnal  Business  Machines  Corporalion.  Tundy  is  a 
iradcmark  of  Tan(l>'  Corptration,  Atari  and  ST  are  iradcmarkii  of  Atari  Corporalion.  AppJe  is  a  trademark  of  Appk-  Computer  Activision  is  the  registered  trademark  of  Activision  Inc.  ©  19S6  Attivision  Inc. 


•WITH  PURCHASE  OF  SPECIALLY 
PRICED  SOFTWARE 


C-128 


FULLY  WARRANTY 
FACTORY  SERVICED 


*WITH  PURCHASE  OF  1571 
COMMODORE  DISK  DRIVE 


AMIGA 


'99  ADDITIONAL  FOR  MONITOR 


PRINTER 


SEIKOSHA 

NEAR  LETTER  .100  CPS  DRAFT 

QUALITY         '20  CPS  NEAR    •COMMODORE  READY 


DISKETTES 


DSDD     PER  PACK  OF  100 


PROTECHTRONICS 

5860  Shingle  Creek  Parkway  #201 

MinnBapolis.  MN  55430 
QUICK 


DELIVERY 


■MM   ^iMK]    B 


1-800-345-5080 


63  indicates  that  sprites  0-5  (3  4-  2  +  4  +  5  +  16  +  32 
=  63)  are  touching  other  sprites  or  foreground  objects.  But 
this  result  does  not  mean  that  each  of  those  sprites  is 
involved  in  the  same  collision  as  the  others.  For  all  you 
know,  sprites  0  and  1  may  have  collided  on  one  part  of  the 
screen,  and  sprites  2-5  may  be  involved  in  a  three-way 
collision  elsewhere. 

In  other  words,  BUMP(2)  tells  you  that  a  given  sprite 
has  collided  with  some  foreground  object,  but  does  not 
indicate  which  foreground  object  it  is  touchifig.  If  that 
information  is  important,  you  must  compare  the  horizontal 
and  vertical  screen  positions  of  every  sprite  on  the  screen, 

BASIC  Page  Flipping  On  The  ST 

I  am  programming  in  ST  BASIC,  and  I  would  like  to 
know  how  to  flip  from  one  screen  to  another. 

R.  W.  Sharpies 

Page  flipping — switching  from  one  display  screen  to  an- 
other— is  (juite  simple  in  a  language  like  Q  but  it's  not 
practical  in  ST  BASIC,  The  first  problem  has  to  do  tvith 
memory  allocation.  An  ST  screen  requires  32,000  bytes, 
and  it  must  begin  at  an  address  that's  evenly  divisible  by 
256.  In  order  to  use  an  alternate  screen,  you  must  reserve 
32,000  bytes  of  memory  at  a  location  divisible  by  256.  This 
ordinarily  would  be  done  with  GEMDOS  routines,  but  ST 
BASIC  provides  no  means  to  call  a  GEMDOS  routine.  If 
you  attempt  to  use  an  unprotected  memory  area,  you  run 
the  risk  that  output  to  the  new  screen  will  interfere  with 
BASIC,  or  that  BASIC'S  operations  will  corrupt  the  screen, 

Assumi7ig  that  you  could  surmount  the  memory  prob- 
lem, you  also  would  have  difficulty  flipping  from  one 
screen  to  the  next.  Page  flipping  is  done  by  calling  an 
XBIOS  routine,  but  ST  BASIC  also  lacks  any  method  for 
calling  XBIOS  routines.  Furthermore,  switching  to  a  new 
screen  requires  that  you  pass  to  the  system  a  32-bit 
address  representing  the  location  of  the  new  screen.  Since 
the  largest  variable  in  ST  BASIC  is  only  16  bits  long,  you 
have  no  practical  way  to  tell  the  system  lohere  your 
alternate  screen  begins. 

The  recently  introduced  GFA  BASIC  language  per- 
?nits  access  to  GEMDOS  atid  XBIOS  routines,  and  it  also 
has  a  built-in  command  that  can  flip  screens  without 
resorting  to  system  calls.  The  SWAP  conunand  exchanges 
the  values  of  two  variables  in  GFA  BASIC.  If  you  previ- 
ously have  reserved  a  screen  space  named  SCREEN2,  this 
statement  is  all  it  takes  to  flip  from  the  old  screen  to  the 
new  one: 
SWAP  screeni,  screen2  © 
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Writing   i   nathirn? janguasp   proar*M  that 
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Subscribe  to  COMPUTE!  today  through  this 
special  introductory  money-saving  offer,  and 
you'll  be  getting  a  lot  more  than  just  another 
computer  magazine.  That's  because  each  issue 
of  COMPUTE!  comes  complete  with  up  to  20 
all-new,  action-packed  programs. 

Subscribe  now  and  you  can  depend  on  a 
steady  supply  of  high  quality,  fun-filled 
programs  like  Hickory  Dickory  Dock, 
Switchbox,  TurboDisk,  Home  Financial 
Calculator,  Turbo  Tape,  SpeedScript, 
SpeedCalc,  and  hundreds  of  other  educational, 
home  finance,  and  game  programs  the  entire 
family  can  use  ail  year  long. 

The  superb  programs  you'll  find  in  each 
issue  are  worth  much,  much  more  than  the 
low  subscription  price. 

And  there's  more  to  COMPUTE!  than  just 
exciting  new  programs.  Month  after  month, 
COMPUTERS  superb  articles  deliver  the  latest 
inside  word  on  everything  from  languages  to 
interfaces... from  programming  to  disk  drives. 

Whether  you're  a  novice  or  an  experi- 
enced user,  COMPUTE!  is  the  magazine  for 
you.  So  subscribe  today.  Return  the  enclosed 
card  or  call  1-800-247-5470  (in  Iowa, 
1-800-532-1272). 

Do  it  now. 


ACT  HOW 
ANDSffifi 


frrrrrjFTm 


3 «#•.*« 


I  Til .71 

jmt.ts 
- r*s.mm 


/^       ^       """■■% 

k 

/ 

3* 

}  n 

\ 

7 

S 
•^ 

/ 

-i-nr 

l-Ul 

s 

■ 

■ 

^J 

E 

■ 

n 

III 

HI 

■ 

III 

■!■ 

B^^^^^^^ 

A««d0O3Bat=t>fil* 


fTKLJ 


COMPUTE!  Publications,  Inc.  ® 

One  of  the  ABC  Pubiishing  Companies  ^^^^ 

If  attached  order  card  is  missing,  write:  COMPUTEl  RO.  Box  10955,  Des  Moines,  lA  50950 


-^ho J\)ov^^|/^ 


Selby  Bateman,  Features  Editor 


Digital  technology  and  computers  are 
changing  the  ground  rules  of  music. 
Sounds  are  being  produced  that  have 
never  before  been  heard.  Many  pro- 
fessional musicians  are  altering  the 
business  of  commercial  music  by  com- 
posing and  performing  in  ways  previ- 
ously unthinkable.  And  nonmusicians 
can  now  create  and  play  music  with 
the  help  of  smart  computer  programs 
that  teacK  guide,  and  accompany. 


Pick  up  many  of  the  latest  records, 
tapes,  and  compact  discs  on  the 
market  and  you're  in  for  a  surprise. 
In  addition  to  the  traditional  credits 
given  to  those  who  play  guitar  or 
piano  or  drums,  you'll  increasingly 
find  credit  being  given  for  program^ 
ming,  digital  mastering,  and  other 
computer-related  processes. 

You  may  be  in  for  a  similar 
surprise  at  your  next  concert.  One  or 
two  musicians  can  now  play  a  bank 
of  computer-controlled  instruments 
that  sound  like  an  entire  orchestra. 
Drum  machines,  sequencers,  sound 
samplers,  digital  pianos,  and  syn- 
thesizers cover  the  stage — all 
hooked  into  one  another  and  con- 
nected to  one  or  more  computers. 

Musicians  as  varied  as  Frank 
Zappa,  Philip  Glass,  Wendy  Carlos, 
Jan  Hammer,  Vangelis,  Steve  Win- 
wood,  Pat  Metheny,  Peter  Gabriel, 
and  many  others  are  experimenting 
with  a  variety  of  new-tech  musical 
styles  and  machines  as  they  explore 
the  cutting  edge  of  digital  technol- 
ogy. More  fundamental  changes 
are  occurring  today  in  the  ways  we 
create,  play,  and  listen  to  music 
than  in  any  previous  era.  And  those 
alterations  are  raising  eyebrows, 
expectations,  and  problems. 

For  most  computer  users,  how- 
ever, the  most  direct  effect  of  the 
changing  musical  landscape  may  be 
in  the  dozens  of  new  and  sophisti- 
cated music  software  packages  that 
have  been  emerging  over  the  past 


couple  of  years.  Computers  with 
more  memory  and  power  are  pro- 
viding a  much  richer  environment 
for  software  developers,  and  this 
translates  into  some  of  the  most 
accessible  and  flexible  music  pro- 
grams ever  developed. 

The  MIDI  March 

Each  of  these  subject  areas — sound 
generation,  commercial  production, 
and  amateur  access — is  based  on 
the  revolution  in  music  caused  by 
the  introduction  of  MIDI  in  1982. 

MIDI — the  Musical  Instrument 
Digital  Interface — is  a  standard  set 
of  electronic  specifications  for  inter- 
connecting electronic  musical  in- 
struments, and  that  includes 
computers.  MIDI  is  both  a  hard- 
ware standard  and  a  software  stan- 
dard, the  basics  of  which  were 
agreed  upon  by  a  number  of  the 
leading  companies  in  the  electronic 
music  business,  such  as  Yamaha, 
Sequential  Circuits,  Korg,  E-Mu 
Systems,  Roland,  and  others.  The 
fact  that  these  companies  were  able 
to  agree  on  the  standards  back  in 
1982  has  meant  that  all  electronic 
music  development  could  move 
forward  much  faster. 

How  important  is  MIDI?  David 
Kusek,  president  of  Passport  De- 
signs, a  leading  music  software 
company,  claims  that  MIDI  is  turn- 
ing musical  instruments  into  com- 
puter peripherals.  ''It's  making  it 
possible  for  a  much  larger  group  of 
people  to  make  music,''  he  adds, 
"MIDI  is  changing  the  nature  of 
music  learning  and  production." 

The  basics  of  MIDI  are  easy  to 
understand.  Let's  say  you  have  a 
personal  computer,  a  synthesizer,  a 
drum  machine,  and  a  sequencer. 
Before  MIDI,  it  would  have  been 
virtually  impossible  to  connect  the 
four  machines  in  any  mutually  pro- 
ductive combination.  But  through 
MIDI,  you  physically  connect  the 
four  with  cables  and  communicate 


via  a  common  set  of  transmission 
signals  that  travel  from  machine  to 
machine. 

MIDI  itself  is  an  open-ended 
set  of  specifications,  designating  a 
minimum  group  of  standards  that 
all  companies  can  follow.  At  the 
hardware,  or  machine,  level,  MIDI 
is  really  quite  simple.  MIDI  ports 
can  be  MIDI  IN,  MIDI  OUT,  or 
MIDI  THRU.  MIDI  IN  ports  receive 
the  digital  data,  MIDI  OUT  ports 
send  the  data,  and  MIDI  THRU 
ports  pass  along  the  data.  The 
plugs,  jacks,  and  cables  used  by 
MIDI  must  be  the  same.  The  cable 
is  the  common  shielded,  twisted- 
pair type,  and  the  ports  are  the 
standard  five-pin  DIN  variety. 

There  are  16  separate  MIDI 
channels  that  can  be  set  to  send, 
carry,  or  receive  data  from  different 
instruments.  In  the  newest  instru- 
ments, individual  voices  can  be  as- 
signed to  different  channels.  They 
operate  in  much  the  same  way  that 
television  channels  do,  but  the 
sending  and  receiving  options  are 
much  more  flexible  and  interactive 
with  MIDI  channels.  There  are  also 
a  variety  of  modes  for  sending  and 
receiving  information.  As  you  can 
see,  at  its  most  basic  level,  MIDI  is 
very  simple;  at  higher  levels,  with 
many  machines  interconnected  and 
different  channels  carrying  differ- 
ent voices,  the  results  can  become 
both  complex  and  powerful. 

The  New  Professional 
Environment 

For  most  computer  users  and  ama- 
teur musicians,  however,  there's  no 
real  need  to  become  a  technical  wiz- 
ard to  exploit  the  promise  of  MIDI. 
Some  new  computers,  like  the  Atari 
ST,  come  with  MIDI  ports  already 
installed.  And  MIDI  interfaces  for 
personal  computers  are  getting 
much  cheaper  and  more  versatile. 
For  professional  musicians, 
there's  every  reason  to  explore  the 
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The  computer  becomes  your  musical 

accompanist  and  teacher  with  Instant  Music, 

from  Electronic  Arts. 


many  uses  of  MIDL  The  results 
among  musicians  who  have  already 
become  proficient  with  computer- 
aided,  MIDI-controUed  composi- 
tion and  performance  have  been 
remarkable.  Most  dramatic^  per- 
haps, are  the  works  of  composers 
such  as  Jan  Hammer,  who  every 
week  single-handedly  scores  an 
hour-long  episode  of  the  television 
program  "Miami  Vice''  from  the 
computer-controlled  recording  stu- 
dio in  his  home.  In  a  similar  fash- 
ion, the  composer  Vangelis  created, 
by  himself,  the  entire  award- winning 
score  for  the  movie  Chariots  of  Fire, 
composing  and  producing  all  of  the 
music. 

Frank  Zappa — who  has,  in  the 
past,  delighted  in  writing  musical 
compositions  too  difficult  for  musi- 
cians to  play — now  has  digital  mu- 
sic machines  that  can  do  the  job 
quite  easily.  "I  use  synthesizers  for 
three  things/'  says  Zappa.  'Tor  gen- 
erating sounds  that  never  existed 
before,  for  performing  music  which 
human  beings  would  have  difficulty 
playing,  and  to  get  rid  of  some  of  the 
drudgery  of  composition." 

While  professional  musicians 
may  be  more  experienced  in  com- 
posing and  performing  music,  their 
goals  are  not  unlike  those  of  non- 
musicians  who  want  to  make  music. 
And  thanks  to  a  new  breed  of  music 
software,  amateurs  today  can  do 
more  and  sound  better  than  ever 
before. 


Improving  Hardware 

Making  music  on  a  computer  has 
come  a  long  way  in  a  very  short 
time.  Before  computer  manufactur- 
ers put  music  chips  in  their  comput- 
ers, some  adventurous  computer 
users  made  sound  by  actually  pro- 
gramming their  computers  to  tell 
their  printers  to  tap  out  meager 
rhythmic  patterns.  The  first  sound- 
producing  computers  used  simple 
tone  generators  with  oscillators  that 
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could  affect  pitch  and  volume,  and 
not  much  more. 

For  several  years,  the  Atari 
eight-bit  computers'  four-voice 
sound  chip  was  the  best  that  could 
be  had  on  a  personal  computer.  But 
then  came  the  Commodore  64's 
amazing  SID  (Sound  Interface  De- 
vice) chip  which — five  years  later — 
is  still  a  remarkable  sound 
processor. 

But  the  greatest  leap  has  been 
in  the  advances  in  sound-generation 
capabilities  that  have  come  with  the 
latest  generation  of  computers.  Add 
to  that  the  va^stly  expanded  power 
that  these  computers  have  because 
of  their  512K  and  even  one-mega- 
byte memories^  and  the  musical 
landscape  looks  even  broader. 

The  Amiga's  four-voice  stereo 
sound  output,  with  independently 
programmable  volume  level  and 
sound-sampling  rates,  is  only  now 
beginning  to  be  effectively  tapped. 
And  the  Apple  llGS  computer  goes 
even  further  in  sound  generation 
with  the  amazing  Ensoniq  Q  chip 
that  has  15  separate,  two-oscillator 
voices  and  a  built-in  analog-to- 
digital  converter.  It  will  take  a  while 
before  software  developers  exhaust 
the  musical  power  of  the  Amiga 
and  Apple  IlGS  computers. 

At  the  same  time,  both  the 
Macintosh  and  the  Atari  ST  com- 
puters are  attracting  professional 
and  amateur  musicians  alike  to 
their  powerful  and  yet  easy-to-use 
environments.  During  the  past  cou- 
ple of  years,  software  developers 
have  produced  quite  an  array  of 
music-composition  programs  for 
the  Macintosh,  and  the  same  situa- 
I  tion  seems  likely  for  the  ST.  in  fact. 


Atari  engineers  realized  that  the 
potential  for  musical  applications  of 
the  ST  was  so  great  that  they  de- 
signed MIDI  IN  and  MIDI  OUT 
ports  on  the  back  of  the  STs  when 
they  were  first  built.  So,  instead  of 
needing  a  MIDI  interface  to  connect 
between  the  computer  and  MIDI 
instruments,  the  ST  is  already  set 
for  MIDI  use. 

More  Memory,  More  Music 

There  has  developed  a  very  large 
library  of  music  software  for  eight- 
bit  machines  like  the  Commodore 
64  and  the  Apple  Il-series  comput- 
ers. And  many  professional  musi- 
cians first  began  tinkering  with 
digital  music,  MIDI,  and  computers 
on  one  of  these  eight-bit  machines. 

But  despite  the  flexibility  of 
these  computers,  the  pros  soon 
found  themselves  reaching  the  lim- 
it of  memory  on  the  64K  machines. 
It's  possible  to  get  about  6000  notes 
into  memory  at  one  time  on  a  Com- 
modore 64.  And  if  you  want  to 
process  those  notes  in  any  ad- 
vanced ways — say,  by  pitch  bend- 
ing or  using  a  modulation  wheel  on 
a  MIDI-equipped  synthesizer — the 
memory  is  used  even  faster. 

The  new-generation  comput- 
ers, with  512K  or  as  much  as  one 
megabyte  of  memory,  can  handle 
virtually  all  of  the  notes  and  pro- 
cessing that  even  the  most  demand- 
ing composer  can  throw  at  them. 
Software  companies  have  not  been 
slow  to  realize  this  potential.  Ac- 
tivision,  Aegis  Development,  Cher- 
ry Lane  Technologies,  Dr.  T's  Music 
Software;  Electronic  Arts  (EA),  Hy- 
brid Arts,  MidiSoft,  Passport  De- 
signs,   Sonus,   and   Southworth 
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Music  Systems  are  but  a  few  of  the 
companies  that  have  produced  a 
number  of  music  software  pro- 
grams for  both  professionals  and 
amateurs.  (See  accompanying  mu- 
sic buyer's  guide.) 

There  are  almost  as  many 
kinds  of  music  software  available 
today  as  there  are  packages.  But 
most  of  them  fall  into  one  of  three 
broad  categories:  educational  pro- 
grams aimed  at  systematic  teach- 
ing, training,  and/or  practice  of 
musical  knowledge  and  skills;  en- 
tertainment software  aimed  at  un- 
leashing the  creative  and  playful 
aspects  of  music  creation  and  per- 
formance while  also  allowing  some 
level  of  serious  productivity;  and 
MIDI-related  programs  that  ser\^e  as 
controllers  for  you  to  use  v^th  your 
computer  and  one  or  more  MIDI- 
equipped  musical  instruments. 

Many  of  the  educational  pro- 
grams have  proven  to  be  a  boon  to 
music  instruction  in  school  settings 
as  well  as  in  the  home.  But  it's  the 
latter  two  categories — the  creative 
programs  and  the  MIDI  pro- 
grams— that  seem  to  be  capturing 
the  fancy  of  most  amateur  and  pro- 
fessional musicians.  In  addition,  an 
increasing  number  of  the  newest 
music-creativity  programs  are  be- 
ing developed  with  MIDI  compati- 
bility already  built  in. 

The  range  of  options  and  fea- 
tures that  are  a  part  of  most  MIDI 
programs — sequencers,  editors, 
controllers — is  remarkable.  Pass- 
port Designs'  new  Midisoft  Studio 
for  the  ST,  for  example,  is  a  com- 
plete multitrack  recording  studio 
and  sequencer  that  features  real- 
time recording,  playback,  overdub, 
rewind,  and  fast  forward.  It  has  32 
polyphonic  tracks  which  are  inde- 
pendently controlled,  and  a  capaci- 
ty for  more  than  80,000  notes  per 
song.  In  addition,  there  is  full  track 
editing  for  combining,  moving, 
copying,  and  erasing  any  combina- 
tion of  the  32  tracks.  In  other 
words,  you  can  change  virtually 
any  musical  parameter  you  can 
think  of  in  just  about  any  manner. 

For  computer  users  who  aren't 
interested  in  using  their  machines 
with  electronic  synthesizers,  drum 
machines,  digital  pianos,  and  the 
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Aciivmon's  The  Music  Studio  is  an 

entertaining  creativity  program  which 
also  has  a  full  set  of  music-composition 
tools, 

like,  there  are  plenty  of  software 
programs  that  use  just  the  com- 
puter to  compose  and  perform  mu- 
sic. Among  the  best-known  and  the 
most  complete  of  these  programs 
for  both  8-bit  and  new  16-bit  com- 
puters are  Activision's  The  Music 
Studio  and  Electronic  Arts'  Music 
Construction  Set  (and  the  new  De- 
luxe Music  Construction  Set), 

The  Music  Studio,  for  example, 
is  something  of  a  musical  tool  kit 
that  has  an  impressive  array  of  fea- 
tures, but  is  also  accessible  to  begin- 
ners.  The  program  offers  full 
composing  capabilities,  as  do  many 
programs,  but  there  are  also  tools 
for  creating  your  own  instruments 
and  sound  effects,  and  a  "paintbox" 
feature  for  free -form  musical  ex- 
perimentation. Activision  also  of- 
fers MIDI  capability  on  the  ST, 
Amiga,  Tandy  1000,  and  Commo- 
dore 64  versions. 

In  a  similar  fashion.  Music  Cofj- 
struction  Set  and  the  new  deluxe 
version  offer  free-form  composition 
tools  and  user-definable  sounds. 
The  emphasis  in  both  programs  is 
to  give  the  beginner  plenty  to  play 
around  with  and  to  enjoy,  without 
having  to  know  too  much  at  the 
start.  As  the  level  of  knowledge  and 
skill  goes  up,  the  programs  have 
built-in  tools  that  are  quite 
sophisticated. 

Your  Computer 
Accompanist 

A  most  interesting  offshoot  from 
these  composition  and  entertain- 
ment programs  are  software  pack- 
ages that  actually  become 
accompanists  to  your  creative  and 
performance  efforts.  This  -is  the 
logical  next  step,  and  one  that 
promises  to  bring  even  more  non- 


musicians  into  the  computer-music 
fold. 

One  of  the  newest  and  best 
examples  of  this  breed  of  helpful 
music  software  is  Electronic  Arts' 
Instant  Music,  a  program  that  won't 
let  you  make  a  mistake^ — unless 
you  want  to.  The  software  does  this 
by  keeping  you  in  the  right  key  and 
rhythm  no  matter  what  you're  play- 
ing. You  can  even  "Mousejam" 
along  with  the  program — using  the 
mouse  to  control  one  instrument  as 
several  other  instruments  play  a 
composition.  No  matter  where  you 
move  the  mouse  on  the  musical 
staff,  you're  in  key  and  in  rhythm 
and  always  following  the  melody. 
The  computer  becomes  your  musi- 
cal partner.  For  a  nonmusician,  the 
experience  is  both  fascinating  and 
educational 

Instant  Music,  and  a  few  pro- 
grams like  it,  provide  that  one  extra 
step  that  can  help  a  beginner  really 
get  excited  about  creating  music. 
"Instant  Music  is  a  result  of  what  we 
learned  from  Music  Construction 
Set/'  says  EA  producer  Stewart 
Bonn.  "Although  we  had  freed  a 
person  from  having  to  play  a  key- 
board in  order  to  play  music,  we 
hadn't  necessarily  taught  them 
where  to  place  the  notes.  And,  un- 
fortunately, music  composition  is 
composed  of  a  lot  of  rules  that  not  a 
lot  of  people  understand. 

'Instant  Music  lets  the  com- 
puter take  care  of  all  those  rules," 
he  says.  "It's  as  though  you  had  the 
computer  holding  your  hand  and 
guiding  you." 

It's  clear  that  the  digital-music 
invasion  is  just  underway.  And 
computers  will  remain  in  the  fore- 
front of  this  amazing  musical  trans- 
formation. The  digital  music 
machines  and  computers  that  you 
can  buy  today  for  less  than  a  thou- 
sand dollars  can  produce  far  more 
sophisticated  results  than  musi- 
cians could  have  achieved  20  years 
ago  in  a  firstrate  recording  studio. 
And  much  of  that  power  comes 
from  MIDI. 

Says  one  music-software  de- 
veloper, "The  real  power  is  with 
the  consumer.  MIDI  will  allow  the 
marginal  musician  perfect  perfor- 
mances, if  he's  willing  to  use  it."© 
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TEST  DIVE  ONE  FOR  YOURSELF. 


In  their  da^  they  ruled 
over  three  quarters  of  the 
earth's  surface. 

During  WWII,  they 
viciously  brought  Britain 
to  her 
knees. 
And 
Japan 
to  the 
ground, 

These  were  the  silent 
killers:  Tench.  Gato. 
U-Boat 

And  now,  they  return, 
M  this,  the  most  realistic, 
all-encompassing  simula- 
tion ever  created 
for  the  personal 
computer. 

You  will  com- 
mand one  of  six 
types  of  Amer- 
ican subs  or  German  Kriegs- 
marine  U-Boats,  during  any 
year  from  1939  to  1945,       f— ^ 
Youll  perform  one  of  over    i Lf 


TAKE  OUR  PREVIEW  DISK  FOR  A  SPIN,  Drop  this  coupon  in  the 
mail  with  your  check  or  money  order,  and  we'll  gladly  send  you  to  the 
South  Pacific  to  have  it  out  with  an  enemy  fleet. 

Mail  to  Sub  Battle  Preview,  RO.  Box  8020,  Redwood  City,  CA  94063. 


Quaniiiy 


Total 


Apple  II  &  compat.  (I28K). 

Commodore  64/128 

IBM  PC  &  compat. 

Atari  ST 

Macintosh 

Apple  II GS 

Total  Disks  Ordered 

Na  me „_™ 

A  d dress 


,      $150  ea.  

_      $1,50  ea.  ™ 

$1.50  ea.  

$2,75  ea. 

_      $2,75  ea,  _ 

_       $2,75  ea. 

„  Total  Enclosed . 

^  Phone  i       ) 

Age- 


City/State/Zip. ^ 

Canadian  orders  please  add  50c  for  additional  postage. 

Piease  ttihw  4  to  6  weeks  for  deli  wry.  Offer  expires  8/30/87  and  is  mlid  only  in 

the  continental  U.  S.  and  Canada,  ihid  where  prohibited.  ^ 
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60  missions.  Or  youll  en- 
;  gage  in  the  most  difficult 
I  tesk  of  all:  lb  make  it 
'  through  the  entire  war. 
Each  vessel  is  com- 
uj  pletely  unique  and 
painstakingly  authen- 
tic, so  youll  have  a  lot 
to  leam:  Navigation. 
Weather.  Radar 


The  No.  I  battery. 
The  ships  heart. 


Sea  guard  radar  stub. 


And  the  contents  of  a 
vital  target  book, 
among  otiier  things. 

Your  arsenal  will  in- 
clude deck  and  anti- 
aircraft guns.  Torpedoes, 
And  mines. 

But  even  all  that  may 
not  be  enough. 

Because  besides  the 
risk  of  bumping  a  depth 
charge  or  facing  a  killer 
Destroyer,  youll  still 
have  to  contend  with  the 
gunfire  of  enemy  aircraft. 

No  simulation  has 
ever  had  the  degree  of 
authenticity  gut-wrenching 
action  or  historical  accuracy  of 
this  one. 

The  first  release  of  our  new 
Masters  Collection.  Andj 
a  challenge  of  unbe- 
lievable 
depth, 

Apple  JI  &  catntatibtes.  Apple  IIGS, 
Atari  ST,  €64/128,  IBM  & 
c&tnpatibles,  Macintosh 
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Amplitude — loudness. 
Analog  sound — recordings  on  or- 
dinary tape  recorders  or  vinyl  re- 
cords. The  sound  waves  on  these 
media  replicate  the  waves  which 
will  hit  the  air  when  the  tape  player 
or  record  player  is  turned  on.  You 
can  see  them  if  you  look  closely  at 
an  LP:  little  fluctuations  in  the 
grooves  which  are  an  analogy  of  the 
sound  therein  contained. 

Bandwidth — the  amount  of  fideli- 
ty. The  distance  between  the  lowest 
and  highest  frequencies  possible  in 
a  given  instrument  or  device. 

Digital  sound — recordings  on  com- 
pact disc  or  digital  tape.  The  sound 
waves  bumping  against  a  micro- 
phone are  translated  into  numbers 
(digits)  which  are  then  stored. 
Sound  information  stored  in  this 
fashion  is  far  less  susceptible  to  the 
dust,  warpage,  and  other  kinds  of 
decay  which  have  plagued  analog 
storage  media  since  their  invention 
in  the  nineteenth  century.  More  im- 
portantly, the  numbers  can  be  easily 
processed  at  virtually  no  cost.  If  you 
want  to  add  echo,  just  copy  the  pitch 
numbers,  adjust  the  timing  num- 
bers, and  reduce  the  loudness  num- 
bers associated  with  the  copy.  All 
this  is  a  software  event  in  the  digital 
domain:  Nothing  physical  has  to 
happen,  just  some  math.  Contrast 
that  to  the  expensive  electronics  re- 
quired to  send  analog  music  through 
a  device  that  has  to  somehow  physi- 
cally control  the  necessary  repeti- 
tions and  relationships. 
Dynamics — variations  in  ampli- 
tude. 

Envelope — how  the  sound  builds 
and  dies  aw^ay.  Broken  into  four 
fundamental  phases — attack,  de- 
cay, sustain,  and  release — the  en- 
velope of  a  sound  is  the  variation  in 
its  amplitude  over  time. 

The  ear  is  very   sensitive   to 
variations   in   the   loudness   of   a 


sound,  and  the  envelope  is  one  of 
the  most  important  ways  that  we 
distinguish  different  musical  instru- 
ments. Some  instruments  have  sim- 
ilar waveforms  (pitch  relationships) 
but  are  easily  told  apart  because 
one  abruptly  goes  silent  while  the 
other  slowly  fades. 
Fidelity — how  well  a  recorded  or 
synthesized  sound  matches  the 
original.  For  instance,  a  two-inch 
speaker  will  always  be  low  fidelity 
no  matter  how  good  a  signal  you 
feed  into  it.  It's  just  too  small;  few 
musical  instruments  have  two-inch 
openings  through  which  their 
sounds  normally  pass.  Forcing  the 
big  boom  of  a  bass  drum  through  a 
two-inch  opening  is  a  doomed  en- 
deavor: The  sound  waves  are  just 
too  large  to  fit  through,  and  such  a 
speaker  is  politely  described  as 
"lacking  in  bass."  Attach  larger 
speakers  to  the  system,  though,  and 
youTl  get  higher  fidelity. 
Filtering — selectively  removing  el- 
ements of  a  sound.  When  you  turn 
down  the  treble  control  on  your 
stereo  set,  you  are  filtering  out 
some  of  the  high-frequency  content 
of  the  music.  It  sounds  less  bright 
because  you  are  invoking  a  variable 
filter  which  eliminates  a  portion  of 
the  sound. 

Low-pass  filter — a  device  which 
allows  the  low-frequency  content 
of  a  sound  to  pass  through,  but 
blocks  the  high-frequency  content. 
In  digital  recording,  there  are  ef- 
fects beyond  the  range  of  human 


hearing  which  nevertheless  can  dis- 
tort the  sample  and  which  require 
low-pass  filtering.  Such  filtering  is 
also  used  to  eliminate  hiss  or  other 
high-frequency  noise. 
Noise — disorganized  sound.  Noise 
can  come  from  the  60-cycle-per- 
second  hum  of  ordinary  electrical 
current  if  electronic  equipment  isn't 
properly  grounded,  from  the  hiss 
caused  by  imperfections  in  record- 
ing tape,  or  from  other  sources  such 
as  inadequately  shielded  computer 
circuitry.  Whatever  its  source,  noise 
is  a  constant  problem  in  the  cre- 
ation of  music  and  its  high-fidelity 
reproduction.  Tape  hiss  might  well 
be  the  exact  same  sound  as  a 
brushed  cymbal,  but  the  cymbal  is 
brushed  with  the  music,  on  the 
beat,  while  the  tape  noise  is  random. 
Orchestration — the  choice  of  in- 
struments. Deciding,  for  example, 
that  you  want  your  melody  played 
by  a  clarinet  and  not  by  an  oboe  is 
orchestration. 

Oscillator — an  electronic  device 
which  vibrates,  causing  electrical 
signals  to  take  on  waveforms.  Use- 
ful in  generating  sound. 
Pitch — how  high  or  low  a  sound  is. 

Polyphonic — more  than  one  sound 
at  a  time.  A  soloist  singing  a  melody 
without  accompaniment  is  mono- 
phonic.  But  when  you  add  a  guitar, 
a  drum,  and  other  musicians,  you 
get  polyphony.  An  important  as- 
pect of  a  musical  instrument  is  the 
number  of  sounds  it  can  make  si- 
multaneously. A  drum  is  normally 
monophonic,  but  a  set  of  drums  can 
be  played  polyphonically. 
Reverb — complicated  clusters  of 
echoes  which  add  fullness  and  nat- 
uralness to  a  sound  and  which  are 
caused  by  reflections  of  sound 
waves  off  the  walls  of  a  room.  Dif- 
ferences in  reverberation  are  what 
you  hear  when  you  can  distinguish 
the  sounds  made  by  the  same  piano 
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New^  books 
from  COMPUTE! 


COMPUTE!  Books  is  bringing  you  a  brand  new 
line  up  of  books  for  your  Commodore  64  and 
128.  These  recent  releases  offer  you  everything 
from  programming  hints  to  exciting  gomes,  from 
educational  to  home  and  business  applications. 


Pascal  for  Beginners 

$14.95  0-87455-068-8 

Book/disk  combination  for  1he  Commodore  64 
$29.95  ISBN  0-87455-069^5> 

This  Introductory  text  to  standard  Pascal  on  any  computer  is 
an  idea!  tutorial  for  anyone  wlio  wonts  to  team  this  powerful 
computer  language.  It  includes  everything  you  need,  includ- 
ing an  introductory  Pascal  interpreter*  for  the  Commodore  64 
and  128  in  64  mode,  ready  to  type  in  and  use.  Written  In  plain 
English  and  offering  numerous  program  exompSes,  it  gently 
and  clearly  explains  standard  Pascal  and  structured  program- 
ming. Latter  sections  include  discussions  of  advancecf  topics 
such  as  files  and  dynamic  data  storage.  There  is  also  an  ap- 
f tonal  disk  availabie  for  $12.95  for  the  CorDmodore  64  which 
includes  most  of  the  programs  in  the  bool<.  686BDSK. 

*The  Commodore  64  Pascal  interpreter  is  not  full-featured, 
but  still  a  powerful  implementation  of  Pascai  which  suits  the 
needs  of  most  beginners. 
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COMPUTEI's  Music  System 

for  the  Commodore  64  and  128 

Book/disi<  combination  only 

$24.95  ISBN  0-87455-074-2 

Sidplayer,  the  feature-pocked,  popular  music  player  and  edi- 
tor program,  is  now  more  versatile  and  more  impressive  than 
before.  Enhanced  Sidplayer  for  the  Commodore  1 28  and  64 
Includes  two  new  versions — one  for  the  Commodore  1 28  run- 
ning in  128  mode  and  another  for  the  Commodore  64.  Take 
advantage  of  every  feature  the  SID  chip  (the  sound  chip  in 
the  128  and  64)  has  to  offer.  Just  like  the  original,  Enhanced 
Sidplayer  is  easy  to  learn  and  use,  with  many  powerful  new 
features.  The  accompanying  disk  contains  the  editor,  player 
programs  (including  a  Singalong  program),  utilities,  and  sam- 
ple music  that  you  can  enjoy  immediately  or  change.  The 
new  Sidplayer  plays  any  songs  created  by  the  original 
Sidplayer  for  the  Commodore  64. 


User's  Guide  to  GEOS:  geoPoInt  and  geoWrlfe 

$1 8.95  ISBN  0-87455-080-7 

Learn  the  ins  and  outs  of  GEOS,  the  new  icon-based  operat- 
ing system  for  the  new  Commodore  64C  and  the  64,  with  this 
step-by-step  guide.  Everything  from  creating  simple  letters 
with  geaWrite  and  pictures  with  geoPaint  to  merging  text  and 
graphics  and  using  desk  accessories  is  clearly  and  concisely 
explained. 

COMPUTEI'S  Second  Book  of  the  Commodore  128 

$16.95  ISBN  0-87455-077-7 

The  editors  at  COMPUTE!  Publications  have  collected  some  of 
the  best  games,  programs,  and  tutorials  for  the  Commodore 
126  (in  128  mode)  from  COMPUTE!  magazine  and  COMPUTErs 
Gazette.  Like  COMPUTEI's  First  Book  af  the  Commodore  128. 
this  book  offers  a  variety  of  programs  and  articles  for  every 
128  user.  Each  program  has  been  fully  tested  and  is  ready  to 
type  in  and  use  on  the  Commodore  128  running  in  128  mode. 
There  is  also  a  disk  availabie  far  $12.95  which  includes  the  pro- 
grams in  the  book.  777BDSK. 

Mapping  the  Commodore  64,  Revised 

Si  6.95  ISBN  0-87455-082-3 

An  update  of  the  bestselling  memory  map  and  programming 
guide.  It's  a  necessity  for  Intermediate  and  advanced  pro- 
grammers. This  definitive  sourcebook  has  been  expanded  and 
now  covers  the  new  icon-based  GEOS  (Graphics  Environment 
Operating  System)  with  clear  descriptions  of  how  to  make  it 
work  for  you.  For  BASIC  and  machine  language  programmers 
of  both  the  Commodore  64  and  64C, 


Look  for  COMPUTEI  Books  at  your  local  computer  or  book  store. 

Or,  to  order  directly  from  COMPUTE!,  call  toll  free  1-8D0-346-6767  (In  NY  212-887-8525)  or 

write  COMPUTEI  Books,  P.O.  Box  5038,  F.D.R.  Station.  New  York.  NY  10150. 

Please  include  shipping  and  handling:  $2.00  per  book  in  U.S.  and  surface  moil;  $5.00  airmail. 

NC  residents  odd  5  percent  sales  tax  and  NY  residents  add  8.26  percent  sales  tax. 

Please  allow  4-6  weeks  for  delivery. 


COMPUTEI'  Publications  Jnc.® 

Part  of  ABC  Consumer  Mooazines,  inc  ^^^^ 


Part  of  ABC  Consumer  Mogozines,  inc 
One  of  the  ABC  Publishing  Componies 


COMPUTEI  Bool<s  are  available  outside  the  United  States  from 
subsidiaries  of  McGraw-Hifl  International  Boot<  Company, 
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NLQ  180 

Hi-Speed  Printer  Sale 

•  1 6  A  - 1 80  CPS  •  Near  LeHer  Quality  • 


Lifetime  Warranty' 

$iaAoo 

©       H        JW      Mm        List  $4? 


Wholesale 
Oost  Prices!!! 


List  $499.95 


Fantastic 
Price 


60%  OFF  LIST  PRICE 


^1^^ 


^^'^ 


'^'ovse 


NLQ- 180  Premium  Quality  Printer 

Near  Letter  Quality  Selectable  From  Front 

Panel  Controls  •  High  Speed  Dot  Matrix* 

Letter  Quality  Modes  *  8K  Buffer  frees  up 

computer  4-times  faster  •  Pica,  Elite, 

Italics,  Condensed  •  Super  Graphics  • 

Business  or  Personal  •  Tractor/Friction  • 


^if^\>  15  Day  Free  Trial  •  Lifetime  Warranty  on 


?>\*^' 


Lifetime  Warranty* 


Print  Head*  •  6  Month  Immediate 
Replacement  Warranty  • 

NLQ- 180  Print  Samples    


This    is    an    tfxample    of    ITALICS 
En  ^^  sirni  cz  ^cd  Bold-face 

Condensed  Text  Doable--stri  ke 

example   of   Near   Letter   Quality 


-  IBM  ^  COMMODORE  -EPSON  —  NLQ  1 80  SPiCIFICATIONS 

Print  Buffer 


8K  bytes  utility  buffer 

Printing  Direction 

Text  Mode  —  Bi-directional 

Graphic  Mode  —  Uni-directional 

Interface 

Centronics  type  parallel  (8-bit) 

Paper 

Plain  paper.  Roll  paper.  Single  sheet 

Fanfold,  Multipart  paper:  max,  3  sheets 

(original  plus  2  copies) 

Character  Fonts 

Pica,  Elite,  Italics,  Condensed 


Printing  Method 

Impact  dot  matrix 

Printing  Speed 

160-180  CPS  at  standard  character  printing 

Printing  Characters 

Standard  9x9  dot  matrix 
NLQ  12x18  dot  matrix  (33cps) 

Character  size:  2. 12  x  2.8  mm  (standard) 
Character  sets:  Full  ASCII  character  set  (96) 
32  International  characters 


INTIRFACiS 


APPLE  —  ATARI  —    ETC. 

Ink  Ribbon  Cartridge 

Ribbon  Life:  3  million  characters/cartridge 
Physical  Dimensions 
Size:  15**  x  12'*  x  5" 
Weight:  12.7  lbs. 

Maximum  Number  of  Characters 

Standard:  lOcpi         80  cpl 

Standard  enlarged;  5  cpi         40  cpl 

Elite:  12  cpi         96  cpl 

Elite  enlarged:  6  cpi         48  cpl 

Condensed:  17  cpi        132  cpl 

Condensed  enlarged:  8.5  cpi         66  cpl 

Condensed  elite:  20  cpi        160  cpl 


Atari  $39*95      Apple  $49.95      Commodore  $29.95      IBM  $49.95      Loser  $19.95 


Add  $10.00  for  shipping,  handling,  and  Insurance,  tllinois  residents  pleose  add 
6'/.  %  sales  tox.  Add  20.00  for  CANADA,  PUERTO  RICO,  HAWAII,  ALASKA, 
APO-FPO  orders.  All  orders  must  be  in  U.S.  Dollars.  WE  DO  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA.  Enclose  Cashier  Check,  Money  Order  or 
Personal  Check,  Allow  1 4  days  for  delivery,  2  to  7  days  for  phone  orders,  1  day 
express  mai I ,  Prices  &  Availabi lily  subtect  to  chonge  without  notice. 

VISA  —  MASTER  CARP  —  CO.D. C.O.D.  on  phone  orders  only. 


COMPUTER  DIRECT 

22292  N.  Pepper  Rd.,  Barrington.  Illinois  60010 

Call  (312)  382-5050  or  382-5244 

to  Order        we  Love  Our  Customers 


1 0  MHz  Super  Turbo  IBM®  XT 

^'''»f«"<^',4Coinpotible  Computer  System 

Run  thousands  of  IBM®  software  programs  available. 


Look  ot  all  you  gef  for  only  ^599 


The  complete  system 

10  MHz  Super  Turbo  XT  Computer 

*  5 12K  Memory 

*  Single  floppy  disk  drive 

*  Parallel  printer  port 

*  Serial  printer  port 

*  Mouse/joystick  port 

*  RGB  color  graphics  port 

*  Hercules  compatible  monochrome  port 
MS  DOS  3.2  &  GW  Basic 

12**  Hi-Res  35  MHz  Green  Screen  Monitor 

(TTL  &  EGA  compatible) 

Monitor  interface  cable 
Big  Blue  Printer 

RS  232  IBM  to  Big  Blue  cable 

2  rolls  of  paper 
Word  First  •  Word  Processor 
Data  First  •  Data  Base 
Calc  First  •  Spreadsheet 


List  Price 

Sale  Price 

,1295°" 

.49900 

»99" 

No  extra  cost 

SI  29" 

No  extra  cost 

S5995 

No  extra  cost 

S5995 

No  extra  cost 

»59" 

No  extra  cost 

»99« 

No  extra  cost 

*79" 

No  extra  cost 

s-j  9900 

*99oo 

*249°° 

*99oo 

»24" 

»19«s 

s  1  9900 

•39" 

M9" 

•9«» 

S1995 

•5'» 

$9900 

•39" 

S9900 

•39'» 

$9900 

•39'» 

Home  &  Business 


This  IBM®  XT  compatible  is  perfect 
for  your  home  and/or  business  uses.  It 
makes  life  easier  in  more  ways  than 
you  can  imagine.  Use  the  system  for 
personal  letters,  form  letters,  address 
storage,  listing  valuables,  figuring 
finances*  school  reports,  business 
reports,  calculations,  business 
projections... the  list  can  go  on  and  on. 
With  the  addition  of  some  of  the 
thousands  of  software  programs 
available  for  IBM®  you  can  increase 
the  capabilities  of  your  system  even 
further.  A  terrific  home  improvement, 
business  enhancer,  entertainment 
center  &.  educational  aid! 


Save  over 
00 


Total  price  when  bought  separately 


»2893« 


off 

sale  prices! 

>892*»        Complete  System  only  '599 


'  Built-in  the  Super  Turbo  XT 


IBM?  is  the  trodemark  of  Internotional  Business  Machines  Inc. 


*  90  Day  immediate  Replacement  Policy  from  Compuler  Direct 


Shipping,  Handling  &  ln»urcinco  Chcirgoft  and  Information 

Add  $35,00  for  shipping,  handling  ond  insuronce.  Illinois  residents  please  odd 
6'/*%  soies  tax.  Add  $70.00  for  CANADA,  PUERTO  RICO,  HAWAII,  ALASKA  ond 
APO-FPO.  Ail  orders  must  be  in  U.S.  doUors.  Enclose  Cashier  Check,  Money  Order 
or  Personal  Check.  Allow  14  doys  for  delivery.  2  to  7  doys  for  phone  orders.  1  day 
express  moil.  Prices  &  Availability  subject  to  change  without  notice. 
VIS  A  '  MASTIRC  AWJ  -  C.O.D.  Pleose  cal  I  f  or  CO.  D.  chorg**. 


COMPUTER  DIRECT 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  6O010 

Call  (3 1 2)  382-5050  pr  382-5244 

to  Order         we  Love  Our  Customers 


0        <• 


I 


i 
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played  in  a  small  room  or  played  in 
Carnegie  Hall.  Reverb  is  often 
added  artificially  in  recording  stu- 
dios to  make  music  sound  more  real 
and  more  pleasing  to  the  ear. 

Ring  Modulation — a  special  way 
of  superimposing  filtering  on  a 
sound  which  results  in  the  exotic, 
constantly  shifting  timbre  charac- 
teristic of  bells  and  gongs. 

Sampling — making  a  brief  digital 
recording  of  a  sound  or  musical  in- 
strument. Although  we're  all  famil- 
iar with  analog  recording  using  tape 
recorders,  the  quality  of  digital  re- 
cording can  be  much  greater;  and 
the  resulting  sound,  captured  in 
RAM  memory  instead  of  tape,  is  far 
easier  to  work  with.  For  example,  if 
you  sampled  the  sound  of  a  pencil 
hitting  a  cup,  you  could  then  play 
the  sound  back  at  different  pitches, 
as  if  you  had  88  cups  sitting  inside  a 
piano,  1  for  each  key.  Or  you  could 
modify  the  sound  in  a  variety  of 
ways  (echo,  play  it  in  reverse,  and 
so  forth),  which  is  quite  easy  to  do 
when  the  sound  resides  in  com- 
puter RAM  memory,  but  difficult,  if 
not  impossible,  when  it's  on  tape. 
Sampling,  however,  does  use  up 
RAM  memory  very  quickly.  A  few 
seconds  of  sampled  sound  can  re- 
quire thousands  of  bytes  of  storage 
space. 

Sampling  Rate— how  often,  per 
second,  the  sound  waves  hitting  a 
microphone  are  measured  and  trans- 
formed into  numbers.  All  things  be- 
ing equal,  the  higher  the  sampling 
rate,  the  more  the  resulting  sample 
will  resemble  the  original 
Sonic— pertaining  to  sound. 
Sync — using  one  oscillator  to  con- 
trol another  to  produce  such  effects 
as  tremolo  (where  the  pitch  rapidly 
rises  and  falls,  almost  like  yodeling) 
or  vibrato  (where  the  amplitude 
rises  and  falls). 


Synthesis— creating  artificial 
sounds  from  scratch.  Using  the  ele- 
ments of  sound  (waveforms  and 
envelopes),  it  is  possible  to  build 
very  close  approximations  of  acous- 
tic instruments  or  to  invent  entirely 
new  sounds. 

Sound  is  vibration.  It's  a  dis- 
turbance of  the  air  that  forms  wave- 
like patterns  which  strike  the  ear. 
And  there  are  two  fundamental  ele- 
ments to  sound:  pitch  and  ampli- 
tude. Pitch  is  how  high  or  low  the 
sound  is  on  the  musical  scale  and  is 
a  direct  result  of  how  many  vibra- 
tions per  second  are  occurring.  A 
high  pitch  is  caused  by  frequent 
vibrations;  a  low  pitch  by  fewer 
vibrations.  The  amplitude  is  how 
loud  the  sound  is. 

Synthesists  can  use  electronics 
and  computers  to  create  waveforms 
and  control  amplitude  in  complex 
ways.  They  can  superimpose,  in- 
vert, filter,  and  otherwise  manipu- 
late them  into  sounds  that  are 
designed  rather  than  natural.  Mod- 
ern music  is  becoming  increasingly 
reliant  on  synthesis  in  the  same 
way  and  for  the  same  reasons  that 
modern  manufacturing  increasing- 
ly relies  on  synthetic  materials:  The 
product  is  often  less  expensive, 
more  reliable,  and,  sometimes,  can- 
not be  found  in  nature. 

Transpose — applied  to  digital  sam- 
pling, this  means  to  move  a  sound 
up  or  down  in  pitch.  A  drum  trans- 
posed up  three  octaves  could  sound 
like  a  bird  chirp — a  shorter  and 
higher-pitched  sound.  Transposing 
a  sampled  sound  so  far  from  its 
normal  range  is  called  the  Mickey 
Mouse  effect  because  the  sound  be- 
gins to  take  on  an  odd,  hollow  qual- 
ity. For  this  reason,  several  different 
samples  of  instruments  with  wide 
pitch  ranges  (such  as  the  guitar) 
need  to  be  made.  The  piano,  one  of 
the  most  difficult  instruments  to 


sample,  requires  many  samples 
across  its  range.  The  waveforms  of 
the  low  notes  and  high  notes  on  a 
piano  are  so  distinct  that  they  seem 
to  derive  from  different  instruments 
altogether. 

Voicing — adding  character  to  a 
sound.  Changing  the  voicing  of  an 
organ  can  make  it  sound  like  reed 
or  wind  instruments,  for  example. 
Waveforms — The  sometimes  intri- 
cate shapes  of  the  sound  waves 
characteristic  of  different  sounds. 
The  sine  wave  (shown  below),  the 
simplest  waveform,  sounds  like  a 
flute. 


A  sine  wave 


If   you    start    to    deform    the 
waves,  like  this: 


A  modlHed  sine  wave 

you'll  start  hearing  a  more  raspy 
sound.  Enough  deformation,  and 
you  can  end  up  with  what  sounds 
like  a  trumpet.  Manipulating  wave- 
forms, in  combination  with  control 
over  a  sound's  envelope,  can  pro- 
duce the  sound  of  any  instrument. 
The  unique  quality  of  an  instru- 
ment's sound,  its  particular  wave- 
form, is  called  its  timbre,  © 
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SUPPORT  FROM  COMPUTE!  BOOKS 


Everything  for  the  Amiga.  From  BASSC  beginner's  guides  to  advanced  programming 
handbooks,  COMPUTE!  offers  you  information-packed  tutorials,  reference  guides, 
programming  examples,  ready-to-enter  applications,  and  games  to  help  you 
develop  your  computing  skills  on  Commodore's  Amiga. 


COMPUTE!  s  AmlgaDOS 
Relercfic«  Guide 

Arlan  R.  Levltan  and  Sheldon  Leemon 
A  comprehensive  tutorial  and  reference  guide 
to  the  powerful  AmigaDOS — the  operating 
system  underlying  the  Workbench  and 
intuition— this  book  offers  information  useful  to 
every  Amiga  owner.  It  defines  and  illustrates  all 
DOS  commands,  and  shows  you  how  to  create 
file  directories,  access  peripherals,  run  batch 
file  programs,  and  avoid  "disk  shuffle."  The 
screen-  and  line-oriented  text  editors  are 
explained  in  detail.  Numerous  examples  and 
techniques  explain  how  to  use  AmigaDOS  to 
make  operating  your  Amiga  both  convenient 
and  efficient. 
$t6>9S    ISBN  0-S7455-047-5 

EEeroentAiy  Amiga  BASIC 

C.  Regena 

Here's  your  introduction  to  the  new  and 
powerful  BASIC  on  the  Ariiiga  personal 
computer.  The  Anniga's  impressive  graphics, 
animation,  and  sound  can  be  unlocked  with  the 
right  commands,  and  BASIC  is  the  place  to 
start.  Complete  descriptions  of  Amiga  BASIC'S 
comnnands,  syntax,  and  organization  take  you 
from  the  beginner  level  to  a  full-fledged 
programmer  Plus,  the  book  offers  you  ready-to- 
type-in  programs  and  subroutines  while 
showing  you  how  to  write  your  own  programs. 
There  is  a  disk  available  which  includes  the 
programs  in  the  book,  $!2.95.  This  title  is  also 
available  as  a  book/disk  combination  for  $29.95 
1057-2). 
S 1 4,95     ISBN  0-8>455-O4 1  -6 


COMPUTE!  s  Amiga 
Programtner's  Guitle 

Edited 

Your  tutorial  and  reference  manual  to 
AmigaDOS,  BASIC,  Intuition,  and  other 
important  software  tools  which  accompany  the 
new  Amiga.  COMPUTER'S  Amiga  Programmer's 
Guide  is  a  clear  and  thorough  guide  to  the 
inner  workings  of  this  fascinating  new- 
generation  computer.  The  great  speed  of  its 
68000  microprocessor,  coupled  with  the 
versatility  of  the  Amiga-specific  graphics  and 
sound,  makes  the  Amiga  one  of  the  most 
powerful  computers  available  today. 
This  book  is  the  key  to  accessing  the  Amiga's 
speed  and  power. 
S 1 7.95    ISBN  0-874  55-€28'9 

Advanced  Amiga  BASIC 

Tom  R.  Halfhill  and  Charles  Brannon 
This  guide  to  applications  programming  on 
Commodore's  new  Amiga  contains  ever>'thing 
an  intermediate  programmer  requires  to  begin 
creating  sophisticated  software  on  this  powerful 
machine,  including  several  ready-to-type-in 
programs.  Clear,  yet  comprehensive 
documentation  and  examples  cover  advanced 
BASIC  commands,  designing  graphic 
applications,  generating  sound  and  music,  using 
the  Amiga's  built-in  speech  synthesizer, 
creating  a  user  interface,  and  programming  the 
computer's  peripherals.  There  is  a  disk 
available  which  includes  the  programs  in  the 
book.  $15.95.  ilune  release) 
$17.95     ISBN  0'87455-045-9 


Look  for  these  books  at  your  local  book  or  computer  store. 

Or  order  directly  from  COMPUTE!. 

Call  toll-free  1-800-346-6767  (in  NY  212-887-8525). 


GUIDE  TO  THE 


COMmiTEIs  BegUtn^s  Guide  to 
llie  Aratfa 

Dan  McNeill 

Written  in  a  lively  and  entertaining  style,  this 
book  teaches  you  everything  a  beginner  needs 
to  know  to  get  started  quickly  with  the  Amiga 
from  Commodore.  You  will  learn  about  setting 
up  the  system,  all  the  most  popular  types  of 
software,  and  details  about  the  hardware. 
SI 6-95     ISBN  0-8745S-025-4 


fnskle  Amiga  Graphics 

Sheldon  Leenion 

The  Amiga,  Commodore's  powerful  new 

computer,  is  an  extraordinarily  impressive 
graphscs  machine.  Easy  to  use,  the  Amiga  can 
produce  color  graphics  and  excellent  animation. 
You'll  find  thorough  descriptions  of  the 
computer's  abilities  and  the  hardware  required 
to  create  a  complete  graphics  system.  Software, 
too.  is  centra!  to  the  Amiga's  power,  and 
complete  tutorials  show  you  how  to  get  the 
most  from  the  machine.  Uune  release) 
Si  7,95     ISBN  0-87455-040-8 


COMraTEls  Kids  and  the  Amiga 

Edward  H.  Carlson 

The  latest  in  this  bestselHng  series  written  by 
Edward  Carlson.  COMPUTEl's  Kids  and  the 
Amiga,  will  acquaint  you  with  BASIC.  Over  30 
sections— all  with  instructor  notes,  lessons, 
assignments,  and  lively  iliustrations — entertain 
and  amuse  you  as  you  learn  to  program  your 
new  computer.  Clear  writing  and  concise 
examples  make  it  easy  for  anyone — children 
and  adults  alike — to  painlessly  learn  BASIC. 
(May  release! 
S  i  4.95     ISBN  0-87455-048-3 

Please  allow  4-6  weeks  for  delivery 
after  your  order  Is  received. 


COMPUTE!  PublicationsJncS 


Port  of  ABC  Ccnsunef  Mogaz'nes.  \nc 
One  o'  rhe  ABC  PuD'-sh'ng  Corncjai.es 

625  ?^h  Avenue,  6'h  F:cor.  New  vofk.  NV  100^^ 

i*CC*i*M'f-  Q(>^J'ii  lituv^f  lOMf.-'f  lOiwi 


COfVIPUTE!  books  are  available  outside  the  United  States  from 
subsidiaries  of  McGraw-Hill  international  Book  Company. 


I  irt-e  *tt»<3*!r>t 


A  Buyer's  Guide  To  Music  Software 


The  programs  listed  here  are  only  some  of  the  hundreds  of  music  software  packages  available  for 
personal  computers.  This  buyer's  guide  is  not  meant  to  be  exhaustive,  but  does  give  you  some 
idea  of  what's  available  and  which  companies  are  producing  music  software.  A  number  of  the 
companies  mentioned  here  have  a  variety  of  other  music  programs  available.  The  following  guide 
does  not  attempt  to  include  the  professional  programs  priced  significantly  above  the  general  consumer 
level.  Note  that  prices  and  machine  availability  change  frequently. 


Product 


Price 


Publisher/ 
Vendor 


System 


Description 


Adams'  Musk  Disk 
Version  6.0 


S39.95 


Adams'  Soft 


Apple  II,  He,  Ik 


Elementary  music- learning  program  with  colorful  graphics.  Most 
useful  for  elementarv-school  teachers. 


Advanced  Music  System     $79.95 


Firebird  Commodore  A  music  program  allowing  creation  of  full  compositions  with 

64/128  MIDI  capability.  Suitable  for  the  professional  musician  as  well 

as  beginners. 


Aegis  Sonix 


$79.95 


Aegis 
Development 


Amiga 


Bank  Street  Musicwriter     $49.95 


Mind  scape 


Create  any  type  of  music  by  combining  multiple  instruments 
and  sounds  with  this  professional  music-composition  program. 
An  expanded  version  of  a  program  onginally  called  Musicraft. 


Apple  II +  ,  He,  lie; 
Atari  eight-bit; 
Commodore  64; 
IBM  PCjr 


Composing  comes  to  life  as  you  arrange  music  on  the  screen. 
It's  as  easy  to  learn  as  arranging  words  in  word  processing. 


Basic  Chords 

$39.95-$99,95 

Electronic 
Courseware 

Apple  II -f,  lie,  lie; 
Commodore 
64/128;  IBM  PC, 
PCjr;  Tandy  1000 

Computer  plays  a  basic  chord  or  its  inversion,  which  the  user 
must  then  identify. 

Basic  Guitar  1 

$50 

Digital  Concept 
Systems 

Apple  II,  Ii  +  .  He 

Two-disk  set  of  sound  and  graphics  to  teach  chords  to 
beginning  guitarists. 

Basic  Piano  Theory 
Software 

$29,95 

Alfred  Publishing 

Apple  II +  ,  He.  Ik; 

Commodore 

64/128 

Creative  graphics  and  animadon  in  game  formats  reinforce 
concepts  taught  in  Alfred's  Basic  Piano  Theor}\ 

Beatles  Classics 

S29.95 

DJ  Software 

Commodore 
64/128 

Strum-along'Song  disk  comes  with  15  songs,  from  "Hey  lude" 
to  "Hard  Day's  Night." 

Camus 

$50 

Conduit 

Apple  II;  IBM  PC 

Set  of  exercises  that  train  the  ear  to  perceive  musical  notation. 

Chord  Power  for  Guitar 

S39.95 

Newarts 

Commodore  64 

Displays  over  10,000  guitar  chords  with  sound  at  user's  request. 

Chord  Primer 

$49,95 

Dynacomp 

IBM  PC,  PCjr 

Program  capabilities  range  from  a  built-in  library  of  over  600 
chords  to  a  set  of  automated  lessons  on  music  theory  for  guitar. 

Chords 

S79 

VVenger  Computer 
Software 

Apple  II,  I1  +  ,  He 

Intermediate  or  advanced  music  students  drill  and  practice 
chord  idendfication  for  ear  training. 

Christmas  Classics 

S9.95 

Free  Spirit 
Software 

Commodore 
64/128 

"Joy  to  the  World,"  "Deck  the  Halls,"  "Twelve  Days  of 
Christmas,"  and  "Jingle  Bells"  are  among  the  over  40  songs 
included. 

Christmas,  Volume  3 

$15 

Great  Wave 
Software 

Mac,  Mac  Plus 

Collection  of  Christmas  songs. 

Classical  Selection, 
Volume  5 

$15 

Great  Wave 
Software 

Mac,  Mac  Plus 

Collection  of  favorite  classical  music. 

Clef  Notes 

$39,95 

Electronic 
Courseware 

Apple  11 T,  He,  lie; 
Commodore 
64/128;  IBM  PC, 
PCjr;  Tandy  1000 

Drill-and -practice  in  idenhfying  notes  as  they're  placed  on  the 
treble,  alto,  tenor,  and  bass  clefs. 

Coco  Notes 

$12.95 

CBS  Interactive 
Learning 

Atari  eight -bit; 
Commodore  64 

Players  try  to  catch  notes,  create  melodies,  and  fish  for  tunes. 
Teaches  sound  discrimination,  musical  patterns,  and 
composition.  For  ages  6  and  up. 

Computer 

Song/Album/Music- 
Video  Hits 

$15.95 

Sight  &  Sound 
Music  Software 

Commodore  64 

Listen  to  hits  of  favorite  artists  while  controlling  computer- 
generated  instrument  sounds  and  special  effects. 

COMPUTErs  Music 
System  for  the 
Commodore  128  &  64 

$24.95 

COMPUTE! 
Publications 

Commodore 
64/128 

Enter,  edit,  and  play  the  most  sophisticated  music  possible  on 
the  Commodore  1 28  and  64  with  Enhanced  Sidplaifer, 

ConcertWare+  MIDI 

$139.95 

Great  Wave 
Software 

Mac,  Mac  Plus 

Control  any  MIDI -compatible  electronic  keyboard,  synthesizer, 
or  drum  machine.  Record  voices  as  you  enter  them 
monophonically  on  an  electronic  keyboard. 

ConcertWaje+,  Version 

3 

$69.95 

Great  Wave 
Software 

Mac,  Mac  Plus 

Create,  edit,  print,  and  play  music  files;  create  new  instrument 
sounds,  as  well.  Some  music  and  instruments  included. 

Deluxe  Music 
Construction  Set, 
Version  2.0 

$99.95 

Electronic  Arts 

Mac,  Mac  Plus; 
Amiga 

Improved  and  redesigned  to  take  full  advantage  of  these 
powerful  computers.  Enter  notes  directly  on  the  staff  with  the 
mouse  or  from  onscreen  keyboard. 
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Run  to  your  dealer  to  check  out 

this  GREAT  SOFTWRE 


"...everything    a  good   compiler   should 
be...£asy  to  use... efficient... offers  a  good 
range    of   optional  features. ..excellent 
documenialion  ,„in  expensi  ve." 
Tom  Benford,  Commodore  Magazine 


Super  C 


Give  your 
BASIC  programs 
a  boost! 


Basic  Compiler 

Now  anyone  can  speed  up  their  BASIC 
programs  by  3  to  35  times!  Basic-64  and 
Basic-128  easily  converts  your  programs 
into  fast  machine  language  or  speedcode 
(takes  up  less  space  yet  protects  your 
programs  from  prying  eyes)  or  a  mixture  of 
both.  You  can  even  compile  programs 
written  with  extentions^ — Simon's  Basic, 
VICTREE,  BASIC  4.0,  VideoBasic  and 
others.  When  the  compiler  finds  an  error,  it 
just  doesn't  stop,  but  continues  to  find  any 
other  errors  as  well.  Supports  overlays  and 
has  many  other  options.  128  version  works 
in  FAST  mode  and  allows  you  to  use  all  1 28 K 
of  memory.  If  your  program  walks  or  crawls, 
give  it  the  speed  to  RUN! 
forC-64    $39.95  forC-128  $59.95 


C  is  one  of  today's  most  popular  languages. 
It's  easy  to  transport  C  source  code  from 
one  computer  to  another.  Wiih  Super  C  you 
can  develop  software  or  just  leam  C  on  your 
Commodore.  Super  C  is  easy  to  use  and 
takes  full  advantage  of  this  versatile 
language.  Produces  6502  machine  code  and 
is  many  times  faster  than  BASIC.  Includes 
full-screen  editor  (search,  replace  and  block 


PPM 

Personal  Portfolio  Manager  Is  the  most  comp- 
rehensive stock  market  portfolio  manage- 
ment system  available  for  the  64  or  1 26— For 
investors  who  need  to  manage  stock 
portfolios,  obtain  up-to-the-minute  quotes 
and  news  and  perform  selected  analysis. 
AI!ows  multiple  portfolios  for  special  intrests 
(high  tech,  low  risk,  income,  etc.)  and 
monitored  individually.  And  the  versatile 
report  generator  lets  you  produce  any  kind 
of  report  to  analyze  a  portfolio  or  stock.  You 
can  even  update  your  portfolio  automatically 
using  Dow  Jones  or  Warner  Computer 
Systems  and  your  modem, 
for  0-64    $39.95  forC-128  $59.95 


"...easy  to  use  package  with  morepcnver  than 
most  users  should  need... ultra- fast  compile 
and  link,  times  make  program  development 
effortless."  Adam  Herst.  Transactor 


operations),  compiler,  linker  and  handbook. 
Combine  up  to  seven  modules  with  the 
linker.  Besides  the  standard  I/O  library,  a 
graphic  library  {plot  points,  lines,  fill)  and  a 
math  library  (sin,  cos,  tan,  log,  arctan,  more) 
are  included.  Whether  you  want  to  learn  C,  or 
program  in  a  serious  0  environment  for  your 
Commodore,  Super  Cis  the  one  to  buy. 
forC-64    $59.95  forC-128  $59.95 


*'.., Personal  Portfolio  Manager  >vi7i  help  you 
make  the  most  of  your  money." 
Jim  Grubbs,  RUN  Magazine 

"...a  customiied  data  base  with  advanced 
telecommunications  features  and  a  relatively 
sophisticate  d  report  gener  at  or.  Th  is  combinat- 
ion is  hard  to  beat  on  any  microcomputer." 
Ted  Salamono,  Commodore  Magazine 


. . .  and  SUPER  BOOKS! 


^^ 


TRiCKS 

&tiP5 

fTORTHE 

^COMMODORE 


Anatomy  of  f/r#  €-64 
lnskJfir'sgtikJeto'64  internals. 
Graphics,  sound,  !/0,  kemal, 
memory  maps,  and  much 
more.  Complete  commented 
RGMtistmgs.  300pp    $1d.fi5 


Anatomy  ot  tho154l  Drtv* 

Best  handbook  on  this  drive, 
explains  all.  Filled  with  many 
examples  programs,  utililies. 
Futly  commented  1541  ROM 
listings.  SOOpp     $19.95 


Trk;k9  S  Tips  for  tha  C-B4 
Coilecikjn  of  easy-toLse  tech- 
niques: advanced  graphics, 
improved  data  Input,  CP/M, 
enhanced  BASIC,  data  hand- 
ling and  inore.  275pp    $13.95 


GEOS  lf}5f€t«  and  Out 

Detailed  Info  on  GEOS.  Add 
your  own  applications  to 
GEOS.  Edit  icons.  Constant 
display  clock.  Single-step 
through  memory.  $19.95 


QEOS  Tricks  and  TJpa 
Colleciion  of  helpful  tech- 
niques for  all  GEOS  users. 
Includes  source  for  a  font 
editor  and  a  machine  lang- 
uage rronitof.  $19,95 


n: 


NTERNALS 


MiCUAB 


a  Software 


Ab  acus  f^^  S  of t  w  arc 


PEEKS  &  POKES 


A  b  &ctu  JttttWti  Software 


't, 


BASIC  7.0 
INTERNALS 


AbacmfifH  Software 


C'12$  INTERNALS 

Important  C-1 28  information. 
Covers  graphic  chips,  MMU, 
I/O,  80  column  graphics  and 
futly  commenled  ROM 
listings,  more.  SOOpp  $19.95 


1571  tKTENNALS 
Essential  reference.  Internal 
drive  functions.  Explains 
various  di^  and  file  formats. 
Fully*commen1ed  ROM 
I  stings.  <450pp  $19.95 


C-128  WICKS  &  TtPS 
Fascinating  and  practical  info 
on  the  C-1 28.  60-col  hires 
graphics,  bank  switching. 
300  pages  Of  uselul  inform- 
al bnforeveryone.       S1995 


C-1 2$  PEEKS  S  POKES 

Dozens  of  programming 
quick- hitters,  techniques  on 
the  operating  system,  stacks, 
zero  page,  pointers,  and 
BAStC,  240FP  $16.95 


C-l23BAStC7.0lntBmats 
G9t  all  the  inside  info  on 
BASIC  7,0.  This  exhaustive 
handbook  is  corrplete  with 
fully  commented  BASIC  7.0 
ROM  listings,  $24.95 


Product 

Price 

Publisher/ 
Vendor 

System 

Description 

Ear  Challenger  Game 

$39.95 

Wenger  Computer 
Software 

Apple  11  ll-f.  He 

An  aural/visual  game  designed  to  increase  tonal  memory  of  a 
series  of  pitches.  Seven  levels  of  difficulty.  For  elementary, 
intermediate,  and  advanced  students. 

Early  Music  for 
Musicworks 

$15 

Recreations 
Software 

Mac,  Mac  Plus 

More  than  60  music  files  of  early  music  of  many  different  styles, 
sounds,  and  moods. 

Early  Music  Skills 

$39.95 

Electronic 
Courseware 

Apple  11 +  ,  He,  lie; 
Commodore 
64/128;  IBM  PC; 
Tandy  1000 

Note-recognition  tutorial  and  drill  for  beginning  music  students. 
A  MIDI  version  is  available. 

Early  Music,  Volume  4 

$15 

Great  Wave 
Software 

Mac,  Mac  Plus 

Collection  of  music  from  the  Renaissance  period. 

Ear  Teacher 

$79 

Wenger  Computer 
Software 

Apple  11,  11 +  ,  lie 

Provides  complete  record  keeping  for  students  using  Ihe 
Intervals,  Tunings,  Chords,  and  Melodic  games  music  programs. 

Easy  Guitar 

$29,95 

DJ  Software 

Commodore  64 

Guitar  instruction. 

Elvis  Classics 

$29.95 

DJ  Software 

Commodore 
64/128 

Strum-along-song  disk  with  15  songs.  Includes  "Teddy  Bear/' 
"Hound  Dog,"  "Love  Me  Tender,"  and  more. 

Euphony  Jr. 

$19.95 

ICO  Soft^N^are 

Commodore 
64/128 

A  collection  of  three  hours  of  classical  music  for  your  listening 
enjoyment. 

Euphony-r 

$29.95 

TCO  Software 

Commodore 
64/128 

Create,  edit,  and  play  music  in  three  voices.  Print  out  your 
music  scores. 

FBOl  Design 

$139.95 

Sonus 

Commodore 
64/128 

A  double- banked  MIDI  librarian  and  editor  for  use  with  the 
Yamaha  FBOl  FM  sound  generator. 

Find  That  Tune 

$39.95 

Electronic 
Courseware 

Apple  II,  II+,  He, 
lie,  lies; 
Commodore 
64/128 

Aural/visual  program  with  two  difficulty  levels. 

GUssTracks 

$69.95-$85 

Sonus 

Apple  II -f.  He, 
Macintosh; 
Commodore  64; 
Atari  520/1040ST 

A  multifunctional  MIDI  recording  studio. 

Guitar  Master  1.0 

$49.95 

Mastersoft 

Commodore  64 

A  comprehensive  program  of  instruction  designed  for  students, 
amateurs,  and  professional  guitarists. 

Guitar  Tutor,  Volume  1 

$49.95 

Nappo  Software 

Mac,  Mac  Plus 

Teaches  beginning  guitarists  the  correct  finger  positions  of  basic 
chords. 

Guitar  Wizard 

$29,95-34.95 

Baudville 

Apple  U  +  ,  He,  He, 

Learn  and  analyze  scales,  chords,  and  tunings  for  all  types  of 

lies,  Mae;  Atari 
eight-bit,  ST; 
Commodore 
64/128,  Amiga; 
IBM  PC,  XT  AT 


fretted  string  instruments.  Clear  graphic  displays  of  the 
fretboard,  notes,  intervals,  and  finger  positions. 


Halftime  Battling  Bands      $12.95 


CBS  Interactive         Atari  eight-bit;  Children  choreograph  and  stage  iheir  own  Be-Bop  Bowl 

Learning  Commodore  64  halftime  show.  Trip  up  the  opposing  band  while  creating  your 

own  marching  tunes  and  band  formations. 


Hey  Diddle  Diddle 


$20.95-$26-95 


Spinnaker 
Software 


Apple  II,  II +  ,  lie, 
lie;  Atari  eight-bit; 
Commodore  64; 
IBM  PC 


Collection  of  30  classic  nursery  rhymes  featuring  brilliant  color 
graphics  and  lively  music- 


Imagination:  Music  $34.95 


Wiley  Professional 
Software 


Apple  IL  II +  ,  He 


Music  is  both  heard  and  seen;  each  song  can  be  repeated,  edited 
further,  or  saved  for  future  listening. 


Incredible  Musical 
Keyboard 


$29.95 


Sight  &  Sound 
Music  Software 


Commodore  64 


Instant  Keyboard  Fun  I—    $39.95 
MIDI 


Transforms  the  Commodore  64  into  a  musical  instrument 
complete  with  black  and  white  keys. 


Electronic 
Courseware 


Apple  11  +  ,  lie; 

Commodore 

64/128 


Twenty -six  songs  the  user  plays  on  a  synthesizer  keyboard. 


Instant  Music 


$49.95 


Electronic  Arts 


Amiga 


The  Amiga  accompanies  you  with  the  sound  of  three 
instruments  while  you  create  music  using  a  mouse;  a  music 
composition  and  creativity  program. 


It's  Only  Rock'n'RoH  $29.95 


Electronic  Arts 


Amiga 


The  first  in  a  series  of  library  disks  for  use  with  EA's  Deluxe 
Music  Construction  Set,  Deluxe  Video,  and  histant  Music. 


Kawasaki  Rhythm                526.95                  Sight  &  Sound  Commodore  64  Combines  color  graphics  with  electronic  instrument  sounds  and 
R*'*^'«^r                                                                   Music  Software  preprogrammed  bass  rhythms.  Features  a  multitrack  recording 
capability. 


Kawasaki  Synthesizer  529.95 


Sight  &  Sound 
Music  Software 


Commodore  64 


Keyboard  Chords— Mroi     $79.95 


Electronic 
Courseware 


Two -disk  package  that  transforms  the  Commodore  64  into  a 
programmable  synthesizer  and  sound  processor. 


Apple  n-f ,  lie; 
Commodore 
64/128;  IBM  PC; 
Tandv  1000,  1200 


Tutorial  on  major,  minor,  diminished,  and  augmented  chords;  a 
chord  spelling  drill;  and  a  keyboard  drill. 


Learning  Guitar 
Overnight 


S39.95 


Chip  ware 


Commodore  64 


Introduction  to  the  joy  of  playing  a  guitar.  Learn  to  strum  songs 
in  less  than  an  hour. 


Listen 


S69 


Imaja 


Mac,  Mac  Plus 


Listen! 


Interactive  music  program  providing  melodic  and  harmonic  ear 
training. 


$39,95 


Electronic 
Courseware 


Apple  H+,  He,  He; 
Commodore  64; 
IBM  PC,  PCjr; 
Tandv  1000,  1200 


Three  lessons  designed  to  help  increase  the  ability  to  perceive 
and  identify  intervals,  basic  chords,  and  seventh  chords. 


Magic  Piano 


$49.95  Edusoft  Apple  H,  H  +  ,  lie,      A  music- teaming  system  for  any  teacher  who  wishes  to 

n<^  introduce  music  in  the  classroom.  Transforms  computer  keys 
into  piano  keys. 
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!.^?oo^s>oe; 


COMMODORE 


APPLE  SOFTWARE 


^^^^^^ 

Adv.  Constructkm 

33.89 

"^ 

Atrtieart 

22.89 

Algeblaster 

27.89 

IBM 

Alpha  Plot 

20.89 

ASC  II  Express 

74.89 

Algebfasler 

27.39 

Auto  Works 

25.69 

American  Challenge 

24,89 

Bag  of  Tritks  2 

31.69 

ASC  II  Express 

74.89 

Bank  Street  Filer 

42.69 

Balance  of  Power 

33.89 

Bank  Street  Mailer 

42.89 

Band  Street  Wriler- 

56.89 

Baak  Street  Writer 

42.69 

Breakers 

2S.89 

Bank  Street  Spellef 

42.69 

Certffkale  Maker 

41.89 

Bard's  Tale 

39.B9 

Libfary  Vol  1 

19.89 

Beagle  Bag 

16.89 

dBase  111  ^ 

419.89 

Beagle  Basic 

t8J9 

Dollars  i  Stnse 

104.B9 

Beagle  Compiler 

41. B9 

Easy 

88.B9 

Beagle  Graphics 

30.89 

night  Sim 

28.49 

Beneath  Apple  DOS 

12.89 

Fontrii 

88.B9 

BigU 

16.49 

Fontasy 

48.99 

Boo kinds 

66.89 

Fntpks  1  thru  13      ea.  13.89 

Sop  &  Wrestle 

16,89 

Framewwk  II 

419.B9 

Breakers 

2B.69 

Fully  Powered  PC 

24.B9 

Captain  Goodnight 

22.69 

Gamecard  III 

39.89 

Carnien  Sandiego 

25.69 

Gato 

21J9 

Certificate  Maker 

29.69 

Hacker  i  or  II 

24.8^ 

Library  Vol.  1 

19.69 

Hellcat  Ace 

24.69 

Chan'n  Graph  Tlbx 

23.69 

Jet 

31.49 

Ctassmaies 

27.69 

King  s  Ouesi  1  or  II 

31.89 

Database  Toolbox 

23.69 

Load  Runnir 

22.89 

Dajsle  Draw 

37.69 

Locksmiih 

B.69 

Decode 

20.69 

Lolus 

319.69 

DiskOulck 

15.69 

Mean  IB 

34.69 

Dollars  &  Sense 

71.B9 

Mngng  Yr  Money 

114.69 

DOS  Boss 

12.B9 

Micro  CooklKWk 

27.89 

Double^tk* 

18.49 

Microsoft  Word 

279,00 

Eidolon 

24.89 

Mulllplan 

110.89 

Essenltal  Data  Dup 

27.B9 

Newsroom  Pro 

74.89 

EmK 

20.B9 

Ncrton  Utilities 

58.89 

FantavJsion 

3t.B9 

Option  Board 

79.89 

Fat  Cat 

18,49 

PC  Tools 

18.89 

Flex  Type 

15,49 

PFS:  Access 

59.89 

Fontrix  1.S 

53.B9 

PF5:  Files  Proles. 

148.89 

Fntpks  1  thru  15      ea.  13.B9 

PFS;  Firsi  Choice 

104.89 

Font  Works 

33.89 

PFS:  Plan  Proles. 

148.89 

Forecast 

37,89 

PFS;  Write  Proles. 

148,89 

Frame*Up 

15.49 

Prim  Shop 

34.89 

Gato 

21 .89 

Print  Shop  Companion  32.89 

GUoe 

24.89 

Prim  Shop  Gr.  ^1 

21.89 

Graphics  Depaftment 

28.69 

Hetfe)!  Database 

66.99 

Graphic  Magician 

2S.B9 

Report  Card 
Sidekick 

32.69 

Graph  worlds 

44.69 

50.69 

GPLE 

25.69 

Sideways  Ver.  ^3 

33.69 

Handler  Package 

5B.B9 

Silent  Service 

22.BS 

Impossible  Mission 

24.69 

Speedkey 

104.89 

LO.  Silver 

15,89 

SuperCalc  A 

279.89 

Jeeves 

28,89 

Superkey 

40.89 

Karateka 

22.89 

Symphony 

494.89 

Knight  ot  Diamonds 

25.89 

Think  Tank 

99.fl9 

Kid  Writer 

24.89 

Toy  Shop 

4G.B9 

King's  Quest  1  or  II 

31.89 

Traveling  Sidekick 

40.B9 

Koronis  Ritt 

24.B9 

Turbo  Database  TIbi 

40.69 

Legacy  ol  Llylgamyn 

28,89 

Turbo  Lighting 

56,B9 

List  Handler 

36.89 

Turbo  Pascel  3.0 

59,69 

Locksmith 

3B.89 

Turbo  Prolog 

58.69 

Macroworks 

16.89 

Turbo  Tutor 

23.B9 

Mngng  Yr  Money 

96.89 

Ultima  III 

40.B9 

Meg  a  works 

59.89 

Visable  mi 

47.69 

Merlin 

41.89 

Volkswrlter  Olx  -'3 

141.00 

Merlin  Pro 

64.89 

Web.  Spell  Checker 

39.69 

MeHIn  Combo 

68,89 

Wiiardry 

36.89 

Micro  Cookbook 

27.69 

Word  Perfect 

289.00 

Millionaire 

31,69 

Wordstar  aOOO* 

284.89 

Minlptx1.2or3 

15,49 

APPLE  SOFTWARE 

Moebius  40.69 

Mouse  Talk  69.69 

UouseWrite  88.89 

Uunch-A-Biig  23,89 

NATO  Commander  22.89 

PFS:  Plan  75,89 

PFS:  Write  75.89 

PFS:  nie  75.89 

Piece  of  Cake  Math  23.89 

Pinpoint  48,89 

Prince  48.69 

Print  ographer  23.69 

Print  master  27.69 

Print  Shop  31.69 
Prt  Shp  Gr,  1,2,3  or  4  1S.B9 
Print  Shop  Companion   24,89 

Piobyter  18.49 

Pronto  DOS  15,49 

Program  Writer  33,89 

Power  Print  20.89 

Quicken  34.89 

Report  Card  32.89 

Rescue  on  Fractalus  24.69 

Reportworks  59.69 

Rescue  Raiders  21.69 

Science  tool  kit  44.69 

Sensible  Grammar  55.89 

Sensible  Speller  68.69 

Shape  Mechanic  20 .69 

Sideways  38.89 

Silicon  Salad  12.89 

Skyfox  27.89 

Spell  works  29.89 
Springboard  Publisher   94.89 

Star  Fleet  I  (Flight)  33.89 

Sticky  Bear  ABC  22.69 

Car  Builder  23.69 

Drawing  22.89 

Math  1  or  2  22.89 

Math  Word  Prob,  22.89 

Music  22.89 

Numbers  22.89 

Printer  22.89 

Reading  22.69 

Rd.  Comprehension  22, B9 

SpeligrabEier  22.69 

Townbuilder  22.69 

Typing  22.69 

Summer  Games  I  or  II  24.69 

Super  Macroworks  32.69 

Teriapih  Logo  63.69 

Think  Tar^k  79,69 

Thinkworks  59.69 

Tip  Disk  ti  10.89 

Toy  Shop  36.89 

Transylvania  13,89 

Trinity  24,89 

Triple- Dump  20.89 

Turbo  Database  Ttbx  44.89 

Turbo  Pascal  3.0  44.89 

Turbo  Tirtor  21.89 

Type  26.89 

Ultima  IV  40,89 

Understanding  IIE  17.89 

Utility  Dty  15.49 

Video  Toolbox  23.69 

Visab1efi502  31.75 

Wilderness  34.69 

Wiiardry  31.69 

Wizard's  Toolbox  23.69 

Wizprlnl  16.69 

Word  Handler  35.69 

Word  Perfect  84.69 

World  5  Grist  Ftbail  24.89 

Write  Choice  24.69 
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Aerojet 

22.69 

Air  Rescue  1 

24.69 

Bard's  Tile 

30.B9 

Ballblaier 

24.89 

Back  to  Basics 

134,89 

Bank  Street  Story  boo 
Bank  Street  Speller 

27.89 

M.89 

Bank  Street  Writer 

34.89 

Basic  Toolkit 

29.89 

Blaiing  Paddies 

24.69 

Borrowed  Time 

20,89 

Carmen  Sandiego 

22.89 

CerlHicate  Maker 

29.89 

Color  Me 

20.89 

Cntdwn  to  Shtdwn 

20.89 

Fast  Tracks 

20.89 

Gato 

20.89 

Gertrude's  Secrets 

20,69 

GUoe 

24.69 

Graphics  Magician 

27.69 

Grt  Amer  Road  Race 

19.69 

Hacker 

20.fl9 

Jet 

27,89 

Jet  Combat  Simulator 

20.89 

Karateka 

22.89 

Kennedy  Approach 

24.89 

Kung  Fu 

20.69 

Little  Comp,  People 

24.69 

Mail  Ordef  Monsters 

24.69 

Merlin 

34.69 

Mig  Alley  Ace 

24.69 

Multiplan  64/126 

43,69 

Nato  Commander 

22.69 

Piper  Clip 

41,99 

Print  Shop 

29.99 

Print  Shop  Comp. 

21.89 

Pr.ShopGr.  1.2.or3 

15.89 

Rescue  on  Fractalus 

24,89 

Scrabble 

27.89 

Sideways 
Silent  Service 

20.89 

22.89 

Spitfire  Ace 

20.89 

Spreadsheet 

34.89 

Sticky  Bear  ABC 

20.89 

Numbers 

20.89 

Opposites 

20.89 

Shapes 

20.89 

Summer  Games  1  or  11 

24.89 

Temple  ot  Apshai  Trif. 

24.69 

Toy  Shop 

39.89 

Transformers 

24,89 

World  Games 

24.89 

World's  Grtit  Bsball 

24.89 

Worid's  Grtst  Ftbail 

24.69 

^^^ 

IBM 

APPLE 

COMMODORE 

Ballyhoo 

24,89 

Clip  Aft  (Vol  1  or  3) 

19.69 

Clip  Art  (Vol  2) 

24,69 

Copylh 

19.69 

Crossword  Magic 

31,69 

Crusade  In  Europe 

24.69 

Cutthroats 

24.89 

Eariy  Games 

20.89 

Easy  as  ABC's 

23.89 

Enclianter 

24.89 

Family  Roots 

149.69 

Fraction  Factory 

19.89 

F-IS  Strike  Eagle 

22,89 

Graphics  Expander 

24.89 

Ghost  Busters 

24.89 

Hitchhiker's  Guide 

24.89 

Leather  Goddesses 

24,89 

Load  Runner 

22.69 

Magic  Spells 

25.69 

Mastertype 

26.69 

Math  Blaster 

27,B9 

Micro  Lg.  Baseball 

24,89 

Micro  Lg.  Manager 

24.89 

Micro  Lg.  Team 

13.89 

Mind  Forever  Voy. 

24.89 

Music  Construction 

12.89 

Newsroom 

34.89 

One-On^ne 

12.69 

Pitstop  11 

24.69 

Planetfall 

24,B9 

Reader  Rabbit 

24.89 

Sargon  III 

31.89 

Sal  (Warcort  Brace) 

27,89 

Sorcerer 

27,89 

Speed  Reader  II 

36.89 

30.89 

Spell  It 

27,89 

Starcross 

30,89 

Star  Trek  1  ot  II 

27.69 

Suspect 

27,69 

Tass  Times 

24.69 

Ultima  11) 

40.69 

Temple  of  Apshai  Tri 

24.89 

Trinity 

24.89 

Typing  Tutor  III 

31.69 

W5II  Writer 

28.69 

Winter  Games 

24.69 

Wishbringer 

24,89 

Witness 

24.69 

Word  Attack 

27.69 

World's  Grist  Bsball 

24.69 

Zorkl 

24.69 

Zorkllorlll 

27.69 

Zork  Trilogy 

46.69 

HARDWARE 

CompuServe  Starter  24,89 

Datacase  7.89 

Disk  Not  Cher  4,8 

Rip-n-File  10.89 

Lemon  27.89 

Lime  46,89 
APPLE  HARDWARE 
BO  Col.  64K  Card  {II  E)    49,89 

Apple  Cat  II  164.69 

Disk  Drive  Com  47.00 

Disk  Drive  Hi  Tech  119.69 

Gibson  light  Pen  148.00 

Grappler  Buffered  118.69 

Grappler  Pro  74.89 

Grappler  (serial]  74,89 

Grappler  C  74.89 

Hotfink  44.89 

Kraft  Joystick  IIE  IIC  23.89 

Koala  Pad  -  79.69 

Laser  129  Computer  389.00 

Mach  If  Joystick  23,B9 

Mach  III  Joystick  34.89 

Mach  iV  Joystick  59.B9 

MIcromodem  HE  139.89 

MockJngboard  A  or  B  64,89 

Mocking  board  C  1 14.89 

Mulliram  CX  51 2K  174.00 

Muhiram  IIE  80/54K  119,00 

Mouse  House  7.49 

Mouse  Mat  6.49 

Paddlesticks  25.50 

Parallel  Printer  Card  44.89 

Prometheus  1200A  254.69 

Print-It  122.69 

Ramrac1or5l2K  219.69 

Rmfador  1  MEG  269.69 

Rimworks  64K  139.69 

Ramworks  512K  199.69 

Ramworks  1  MEG  269,89 

Super  Serial  Card  89.89 

System  Saver  Fan  58.89 

Thunder  Clock  109,89 

Wildcard  t\  74.89 

ZEE  8QA  Checkmate  54,89 

Zoom  HE  102.89 
PAINTERS 

Citizen  120O  174.89 

Star  LV1210  189.69 

Star  NX-10  249.89 

Printer  Stand  16.89 

Oktdata  162P  229,89 

Okimate  20  209,89 

Printer  Ribbons  CALL 

image  writer  BItck  4,49 

imagewriter  Color  4.99 

imagewriter  fl  Color  11.99 

Color  Paper  Pack  12.89 

Pnnt  Shop  Refill  12.89 

MOfNTORS 

Magna  vox  Monitors  CALL 

Amdek  Color  600  414,99 
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Name. 


Address, 
City 


,  State . 


.Zip. 


Charge  * 

Ex 

3  Date 

QTY. 

DESCRIPTION 

PRICE 

Computer  Type 

SHIPPING 
TOTAL 

Phone 

Wn 

Aa6  S3  00  min  US  shfipirig.  CO  D  SSOO  eittfa  Hawaii  and  AJaska  $4  95  mrn  Ordefs 
ouls»de  U  S.  are  not  insured  Canada  4  Mokico  \Q^%  min  StO  00  AJl  oiher  countnes  25^^ 
mm  S30  00  Maste'^Card,  Visa  and  school  purchase  orders  accepted  Personal  checks  allCA 
3  weeks  5  5%  sales  lax  for  Ohiio  f esdenis.  I3e1ect(ve  replaced  withm  20  days  20'^v  reslockjrvg 
fee  il  noi  replaced  wilfi  same  item.  Compaitbilii^  not  guaranteed  Pr'ccs  subjec!  ;o  change 
vnihou!  notice 


c 


Since  1981 


Lyco  Computer 

Marketing  &  Consultants 


Lyco  Computer  is  one  of  the  oldest  and  most  established  computer  suppliers  in 
America.  Because  we  are  dedicated  to  satisfying  every  customer,  we  have 
earned  our  reputation  as  the  best  in  the  business.  And,  our  six  years  of 
experience  in  mail-order  computer  sales  is  your  assurance  of 
knowledgeable  service  and  quality  merchandise. 

We  fill  96%  of  all  orders  every  month.  Here's  how:  •  lowest  prices 
anywhere  •  multimillion  $  factory  fresh  inventory  •  courteous, 
knowledgeable  sales  staff  •  24-hour  shipping  on  in-stock  items. 

Plus;  •  free  shipping  in  U.S.  on  prepaid  cash  orders  •  no  deposit  on 
C.O.D.  orders  •  no  sales  tax  outside  PA  •  full  manufacturers" 
warranties  apply  •  air  freight,  UPS  Blue/Red  shipping  available. 

Call  Lyco  Computer.  See  for  yourself  why  so  many  customers 
keep  coming  back  to  Lyco  for  the  best  prices,  the  most 
complete  inventory,  and  our  fast  and  courteous  service. 

To  order,  call  toll-free: 
1-800-233-8760 

In  Penna.:  1-717-494-1030 
Customer  Service: 
1-717-494-1670 

Or  write: 

Lyco  Computer,  Inc. 

P.O.  Box  5088 

Jersey  Shore,  PA  17740 


SV 


Complete 

COMMODORE 


Risk-Free  Policy:  •  prices  show  4%  cash 
discount;  add  4%  for  credit  cards  •  APO.  FPO, 
international:  add  S5  plus  3°/a  for  priority  mail 

•  4-week  clearance  required  on  personal 
checks  •  compatibility  not  guaranteed 

•  return  authorization  required  •  we 
check  tor  credit  card  thett 


Price  and  availability 
subject  to  change 
wittiout  notice. 


•  Commodore  1 902  A  monitor 
*  Commodore  1 571  Disk  Drive 
•  Commodore  1 28  Computer 


NOW 
AVAILABLE 


Complete 

COMMODORE  64: 

•  Commodore  64  C  Computer  System 

•  1 541  C  Drive  (90-day  Warranty) 

•  Serkosha  SP-1 000  VC  Printer     (reg,  $789) 

.2  joysticks  U\A4^^^ 

^.  ^i^a(\9  ^  versatility 

:^  %^       ^  at  a  great  price 


COMMODORE 


5£r/  Power  and 


COMMODORE 


HARDWARE 

128  Computer ,... ,  $275        C-1700  12eK  RAM  .,,.,  $109.95 

1571  Disk  Drive , .  $229        1750  RAM $169,95 

64C  Computer $175        Irxfus  GT  C-64  Drive  ......  $179  , 

1541  C  Disk  Drive  .,...,,.  $185        G£OS $CALL  j 

1902  Monrtor $285       C'1351  Mouse $39 

1802G  Monitor .  $189       1670  Modem $99 


1-800-233-8760 


THE  NEW  PERSONAL  COMPUTER 

100%  IBM  PC/XT 
compatible  - 
GUARANTEED, 
or  your  money 
back! 


Citizen  120-D  . .  .$179 


Panasonic  10801 .  .$195 

Star  NX-10 $195 

Star  NP-10 $169 


-CT 


Seiltosha  5P1000VC  .  .  $154 
Seiltosha  SP1200Ai . .  .$195 


P^      k-> 


SEIKOSHA 


Lcceno 


808. 

1080- 

1380 . . . 

1385.... 


.IL 


SP1000APttc.....$179 
SP1200ASR5232,$195 
SL-80Ai ..........  .$375 

MPiaOOAi. $439 

MP  5300Ai $549 

BP  5420Ai .......  $1075    /  321  P/s $479^ 

1300  Color  Kit $119     /p34ie $699, 

BP-5420  Ribbon..  $12.50 
SP-1000Ribbon . . .  .$8.50  ,     ,,^-  ,--^  ._* 


.$159> 

. , .  ,$199  , 

. .  .$229  ^ 
.$289  J 


Toshiba 


P351  Mode)  II .... , SCAIL/ 


micrftiiici  >  tnt 


NX'IOC $209 

NL-10 $229 

NX-15............$329       10911 

NB'15 $889       10921. 

SD-10... $259       1592... 

ND-15.... ..$425       1595 

SR'10.. ...$469      3131 

NR-15... ....$529      3151 


Panasonic 


^  Okimate  20 $129  /^ 

'120NLQ ..,.,$209 

^  292  w/interfac© .......  $539 


$269 

......  .$335 

$399 

$499 

. . $249 
.$379 


Monitors 


293  w/interface $679  j 

182 ...,..$235; 

192+ $365  y 

193+ , $559  y 

Tekntka 

MJ-305 ....$309y 

M J-503 ,  . , .$529  J 

Zenith 

R5232  serial  board $55/    ZVM  1220  ................  $89  y 

Juki  6300 S739   /   ZVM1230 . 


■JUKI 


NB24-15 $729      1080  AP  lie .$239  /Juki  6100 $399 


EPSON 


LX  86  . $209 

EX  800 , $355 

EX  1000 .....$579 

LQ  800 - $449 

LQ  1000 

FX  86E S369 

FX286E ,.,...$519 


Panasonic 

TR-1 22  MYP  1 2"  Am  TTL ,  .$139 
TR-1 22  M9P  1 2"  Gr  TTL . .  .$1 39 
Commodore 

1902A  Color ......$285 

1802  C .....$1B 

NEC 
Mutttsync . 


SILVER  REED. 


©CITIZEN 

Premiefe  35  ............ .  $469 

MSP'10 $285  , 

MSP-15 ....$385  . 

MSP-20 $325  , 

MSP-25 $485  , 


DIABLO. 

025.... $519 

635 $799  , 

D-80  IF $1029 


Modems 


EXP  420P $209 

EXP  600P S539 

EXP  800P , $649  /  Avatex 

1200.... , $89 

120Ghc .........$119 


TheAvate)(1200hc 


AtaH 

XM-301 $42.95 

8X212 .SCALL  ^ 


Hayes 

Smanmodem  300 $125 

Smartmodem  1200 ...... .  $369 

Smartmodem  1 200B S339 

Srranmodem  2400 $559 

Wicfomodem  He $125 

Smart  300  Apple  lie .$149 

Commodore 

1670 $99 

Zoom 
FCl200ST(irrternal),.,..$l89 

PC  1200  XL  {internal) $259 

PC  2400  ST  (internal) $329 

PC  2400  XL  (imernal) ....  $349 


We  stock  interfacing  for  Atari,  Commodore,  Apple  and  IBM 


Vickie  Blaker 
Customer  Service  Department  Manager 
Our  Customer  Service  Department  is  one  example  of  how 
much  Lyco  Computer  cares  about  your  satisfaction.  Everyday 
we  talk  to  people  from  all  over  the  world,  and  our  goal  with 
each  person  who  calls  is  to  be  as  helpful,  efficient,  and 
courteous  as  possible.  WeYe  ready  to  find  the  answers  -  from 
questions  about  the  status  of  an  order,  to  warranties,  to 
product  availability  and  phce  -  or  guide  you  to  someone  who 
can.  And  we're  always  here  to  help  you. .  .before,  during,  and 
after  your  purchase." 


Risr# 

iOFTWARE  fg^m^^ 


.  S24  95  , 


Sublogic: 

Baseball  Stadium S15  95 

Flight  Simulator  W $31 .95 

Jei  Simulator . .     ..$31.95 

Night  Mission  Pinball ...  $21.95 
Scenery  Disk,  .  .. $15,95 


Leather  Goddesses S25.75  /  ActivJsfon: 

Term  Paper $35  75  /  Borrowed  Time   .....     $26.95  | 

Champ.  Basketball $26.95  /  Champ,  Basketball . $26.95 

Championship  Goff SNew  /  Championship  Golf . , $32.95 

Microprose:  /  HacXer , . ,  $26,95 

Crusade  in  Europe $24.95     /  "^^^^^  ^ $29.95 


$ia95  /  VUfflffKWORE/  Sublogic  Baseball $31.95  /   Decision  in  Desert $24.95    /  "-'ttle  People £29.95 

Broderbund*  SOFTWARE  /  SuWogic  Football .......  S26.95    /  p-ts  Stnke  Eagle $22.95  /  M.ndshadow S26.95 

Bank  St  Wnter  128K         $32  75  /  ^^^^  /  ^'lent  Service  . .    , $22  95  /  "^^^'^  Studio $35.95 

Carmen  San  Diego  .....  $22.75  /  Destroyer , $24  J5   /  Microteague:  /  "^^'  "^'"^^^ ^^6  95 

Champ,  Lode  Runner . . .  .$24.75  /    "^^stload $24.75  /  Micro  Leag,  Baseball $25.95 /strategic  Simulations: 

Graphic  Library  I,  II,  III , .   $15.75  /    "^^^^baJI $24.75  /  Genera!  Manager .......  .$25,95  /  Computer  Baseball   . .    , .  $24,95 

arateka $18,75  /  ^^.'^'^  Champ. .$19.75    /  stai  Disk $17.95  /  *<ampfgruppe .S34.95 

It  Shop S25.75    /  ^*^^'**  Monstef . , $24.75    /    SS  Team  Disk SU.95  /  Sublogtc; 

Shop  Companion S22  75    /   ^^^"=P'a"     ...........  .$24.75   /  Q^o^j^rtjund'  /  F'^Qf^f  Simulator  If $32.95     /\ 

lop  Paper . ......  .$12  75  /  Jf  ^"'^ -  .^$23.95    /  /  Jet  SimuJatOf $CAa 

K,t  $35  75  /  ^'"'^^  ^^"^^^ •    $23.95    ^ 

Super  Cycle $23.95 

Graphics  Scrapbook $14  9S 

St.  Sports  Basketball S23.95 

WorJcfs  Great  Baseball . .  ,$19,95 

Summer  Games  li S24.75  /    "IL^.tliJ^L '^ZV^^  ^'^^^ 

Vorpol  Utility  Kit $15.75  /    ^^'^'^  ^^^^'^^  ^ S44.75    /p^^^ $26.95  /  Rogue , ...$19.75 

Worfd  Games S24.75   /  Strategic  Slmufatlons:  /  Starglrder . . .  _ ...$26.95   /Winter  Games ....$24  75 

Bartlegruppe $38.95    /  Unison  Worid:  /World  Games    ,..,...  $24  75 

Colonial  CoTK^uest 325.95  /pnnt  Master $24.95  /Strategic  Simulations 


d $24.95 

.  .$23.95 

$29.95 

......  524,95 

jnt,..Sl3  95 
....$13  95 

$1 4  95  /     '^•^^''^■ 

Colossus  IV $21 .95 


Ancient  Art  of  War $25.75  /  Epyx: 

Print  Shop $29.75  /Apshai  Trilogy $22.95 

Print  Shop  Companion  .  .  $25  75     /  Rogue .$22,95 

Carmen  S.  Diego  (USA) . .  $28  75  /Winter  Games $22.95 

On  Balance S62.75 

Bank  St  Wnter  + $44.75 


SOFTWARE 


^^"ys*^^^9 $35.95  /  An  Gallery  1  or  2 

Phantasie  II $25,95  / 

Shard  of  Spnng $25.95    /„^„    ... 

Wizards  Crown $25.95   /  ^'^  f'^^*^^^'^"^' '  ^^  ^  ^ 

Microproser 
Silent  Servtce $24.95 


Elite. .,  $19.95 

Frankie  Goes  to  Italy $19.95 

Pawn $28,95 

Talking  Teachef $28.95 

Tracker $31.95  /    ^ublogic: 

Starglkjer ...... .    .     ..   $2495/     F' O^^t  Simulator  It $3295 

Sentry S24.95   /    ^®'  Simulator $26,95 

..  ^    ^  ^  /    Night  Mission  Prnball $22.95 

r.  Tech  Expressions:  /  3^^^  

an  Ware $6.75  / 

lay  Paper...........  $8.95    /       ^PV'^' 

Vare $6.75   /  destroyer. , ,  .  ,  .  $24.95 

r^fg  $9  75  /    ^^''a'®  Champ .$19.95 

Movie  Monster S24.95   /  Actfvision: 

Winter  Games ,...,....,  S24  95   /  Pebble  Beach $32.95 

Worid  Games $24.95  /  P'^^^'  -  ■    • ■  $28.95 

Wrestling  . .  $24  95  /    Champ.  BasJtelbaH $26.95 

^-  /  Firebird:  /  ^^''"'^^    ' ^25.75 

$26.96  /  p^i^,,,,  ,y  PH.,,  4^^  o^  /    Enchanter  Tnlogy S49.75 


$18.95 


SOFTWARE 


/orld: 

or  2 $15.95 

$22.95 


.$44.95 


Road  War  2000 $24  95 

Kampfgruppe $36.95 

Shard  of  Spring $24.95 

Battle  of  Antetiem  ....    ,  ,  .$38.75 

Computer  Baseball SU.95 

Gettysburg $38.75 

Knights  n  Desert .$25  75 

Sublogic: 

Jet  Simulator $32.95 

Scenery  Japan $15.95 

Scenery  San  Fran $15.95 

Scenery #l-#6 .569.95 

Broderbund:  /  Bonus: 

Ancient  An  of  War $28.95  / SSDD $6.99 

Print  Shop $37.75    /dSDD .$7.50 

Prim  Shop  Companion $31.75  /skc- 

$21.75 


.$8,50 


.  . . .  $24.95 
,  .    $34.95 
$14.95 


Elite ,.,.,.  $22.95  J 


The  Pawn ...,,.  .$26.95 

SiarQirder $28,95 

Unison  Worfd: 

An  Gallery  2 ..$19  95 

Print  Master $25.95 


f, 


'miSGA. 

SOFTWARE  , 

trd $24.95  , 

»1 .$14,95 


Leather  Goddesses $25.75 

Moonmtst $25.75 

Music  Studio $3275 

Microprose: 

Conflict  in  Vietnam $24.95 

Crusade  m  Europe S24.95 

Decision  in  Desert $24.95 

F'l  5  Strike  Eagle $22.95 

Si'^nt  Service $22.95 

Microleaguei 
Micro  Leag.  Baseball .    .  .$25.95 

General  Manager $25.95 

StatDisK      ,...,. .  $17.95 

'86  Team  Disk $1 4.95 

Epyx: 

Apshai  Trttogy $24.75 

Destroyer $24,75  /  Maxell: 


Graphic  Library  I  or  I! ^ci.f;^  /  ssdq 

^arateka '521.75/0300..         ...  $950 

Toy2h°P- ^39.95 /dshD $18  95 

Bank  St,  Writer  + $54  95  /  , 

/  Verbatim: 
Unison  World:  /sSDD  9  99 

f<n^^\^^ry2 516-95 /dsoD... $1299     ' 

News  Master . . .....  $55.75    / 

Print  Master $36.75  /  3,5 

3M: 

SSDD $16.99 

DSDD .$23.99 

Maxell: 

SSDD $15,99 

DSDD $21 ,99 

Verbatim: 

SSDD ..$t6.99  ^ 

DSDD .$24.99  , 

SKC: 


Diskettes 

5-1/4 


We  stock  over 
5000  titles  of 
software,   tf  it's  not 


Karate  Champ $19.75 

Movie  Monster $24.75 


SSDD , $9.99 

DSDD ,$12.99 


SSDD , $14.99 

DSDD........ ..,,$19.99  , 


listed,  call  for  price 
and  avaiiability! 


^ 


(tull  manufacturer's  warranty) 
•Atari  130  XE  Computer 
*Star  NX- 10  Printer 
•1050  Drive 


'AATARf 


Am 


Atari  1040  Mono  System  with 
Seikosha  SP1200Af  Printer 


AATARr 


SOFTWARE 


Pi 
Prir 
Print 

Scienci 


Purchase  orders 

accepted  from 

educational 

instilutions. 

Also,  ask  about 

volume 

discounts! 


(full  warranty  applies) 


Atari  520  ST  Color  System 

(full  manufacturer's  warranty) 
•  SC-1 224  Color  Monitor  ^ 

SF-354  Disk  Drive 


^  520  Keyboard 


/^^^^^^m'  /  Access: 

Leader  Board 

Tournament  #1 

10th  Frame 

Access:  ' ^/    Activision: 

Leader  Board S24  95  /  Ball/hoo S23 

Tou'nament  #1 SI  4,95  /  Borrowed  Time $32.9 

Triple  Pack $14.95  /  Championship  Baseball   .  .S29.95 

0th  Frame $24.95  /  Champion.  Basketball ....  .$28.95y 

Activision:  /  Championship  GotJ ...,..,  .SNewy 

Hacker S15.95  /  Game  Maker .............  .SNbw/ 

Hitch  Hikers  ,  ,  , S22.95  /    Hacker ................  .S28.95  / 

Leather  Goddesses S22.95  /  '^acker  2 $32,95  y 

Moonmist $22.95  /   Leather  Goddesses  ......  $23,95  . 

Mus^c  Studio $22.95  /  ^'«le  People $32.95/   Access: 

Moonmist $23.95  /  Leader  Bo 

Music  Studio $37.95  /  Macn  5  , . . , 

Paint  Works $43.95  /  Mach  - 128 . . 

Podal ...,,..,  .$34.95/  lOlh  Frame . . . . 

Shanghai , . , . . . ,  $28.95/  Executive  Toumat 

Tass  Times $32.95  /  Toumamerl  #1  . , . 

Data  Soft:  /    ^^'P'^  ^^^^  ■■' 

Mercenary , , $26.75/  Activision; 

/    '^^rcenary  -  2nd  City . ,. . .  $17.95  /  Alrens 

^  . . .  ^f ,  „^     /  Alt.  Reality  -  The  City $34.95  /  Champion.  Basketball , . . .; 

General  Manage' ,.$24,95   /  ^^  ^,,         '    ^^  ^^^-.^    /u     i  t^ 

StatD.sk 5^,55  /Art.Rlty.-TheD.ngeon... $26.75  /Hacker.... .^$i 

Micfoprose:  /  Hacker2 .$20 

Silent  Service $24.95  /  I^abyhnth $22.7 

F'l  5  Strike  Eagle $24.95 

Optimized  Systems: 

Titanic SNew  j 

Microprose:  y-  ^^^ 

F- 1 5  Strike  Eagle 522.95/  p^^ 

Phantasie  II $24.95 

Road  War  2000 $26.95 


Microprose: 

Conflict  in  Vietnam $24.95 

Decsion  in  Desert S24.95 

F-1 5  Strike  Eagle $22,95 

Kennedy  Approach Si 9.95 

Silent  Service , .  ,S22.95 

Top  Gunner $19.95  ^ 

Microleague: 
Micro  League  Baseball , 


'86  Team  Disk S14.95 

Broderbund:  /  ^:^^^^^^^^ g^  j^         ..  $24.95  '/  Mu&cStudro $22,75 

P^'^lShop   ., $25.75/  ,    ^^    ,  /Portal $26.95 

Print  Shop  Companion  . . ,  $22.75  /  Optimized  Systems:  /  ^^^^  ^.^^^ ^.^JS 

Graphic  Library  I.  11,111 .  . ,  .$15.75  /  Persona^  Pascal  ,.,..,..  $48.95    /  .^^^^^^^  g^^^  /  [ 

Karateka $18.75  /   Personal  Prolog 551.75  /__  /  He 

Bank  St  W'iter S29.75  /  Strategic  Simulations: 

Optimized  Systems:  Af^f  ^^n   '   ' .f  ^f  /  Gunship $22,95 

Acfon ,  S46.95  /  Phantas-e  11^ J24S5   /  ^  ^^g  ^^  /    Unison 

Action  Tool  Kit $18.95  /   *^*=3d  War  2000 $26.95    /  5.,^^^  ^'^.^ ,$22  95/  ^^  ^^fler 

Basic  XE $46  95/    Colonial  Conquest .$24.95  /g^^^  p|    ^^  .......   $19,95  /  ^^^^  '^^^^^ 

Sasic  XL S36.95  /    Epyx:  /  y^p  Gunner $1 9  95  /  Batteries  Inc 

Basic  XL  Tool  Kit . .... .  ,$1895  /  Apshal  Trilogy $24.95  /„.      ,  /  paper  Clip 

'^BC  65 $46.95  /  Super  Cyde $24.95  / ,Zl'°ZT.^L....       c.  .c  /  Paper  Clip    ' " ' 


World  Games  , $24,95  , 

Wrestling ,  $24.95  ^ 

Karate  Champ $24.95 

Firebird: 


AATARi 


HARDWARE 


SF3l4DtskDnve......$219.9S 

SF  354  Disk  Drive $175.95 

1 050  Drive  (X£,  XL)..  $139,95 
SHD  204  20  MEG  Dr. ,  .$589 

65XE . 

520  ST  Mono $515 

Indus  GT  Atari  Df.  .$179 
I30xe  Computer  $139 
65XE  Computer .  $99 


Mac  65  Tool  Kit Si  8  95 

Slfategic  Simulations: 

Battle  of  Antetiem $32.95 

Nam  .,.,...,.. S24,95 

Wargame  Construction  . ,  .$18.95 

Wizards  Crown , .  $24.95 

Warship $39.95 

Sublogic: 

Flight  Simulator  II $31.95 

Night  Mission  Pinball ...  $21.95  /  Accounts $174.95 

Scenery  Japan St  5, 95  /  VIP  Professional .......  $124,95 

Scenery  #1  -  #6 $69.95  /  VIP  Professional  Lite  ....  .$74,95 


.  $24.95  J 


Scenery  Disks,  each $14.95 

Epyx: 

Eidolon $22.95 

Karate  Champ ..$18.95 


General  Manager $24  95 

Slat  Disk., $17  95 

'86  Team  Disk $14,95 

,     Micro  League  Wrestling  . ,    $New 
Pawn $26.95    /  ^  ^ 

Starglider $26.95  /  S»^*^9'^  Simulations: 

Golden  Path $28.95  /   Gernstone  Healer  $18.95 

Tracker $28.95  /  Gettysburg $36.95 

yip,  /  Kampfgruppe  . .  .$36.95 

Phantasie  II . . , $24  95  / 

Phantasie  111 $26.95/  ^^ 

Ring  of  Zeltin $24.95^ 

Road  War  2000 S24.95 


Consultani  64 . , 
Consultant  128, . 
CalKit ........... 


:applc 


Unison  Worid: 

ArtGaitery  lor2 $18.95 

Print  Master $24.95 

Zoom: 


Shard  of  Spring  ........  .$24.95 

Wizards  Crown $24,95 

War  in  the  S.  Pacific S39.95 


SOFTWARE 


Triple  Pack .$14.95 


Koronis  Rift $22.95 

Summer  Games  .... $24.95 


Zoomracks , $54.95 

Zoomracks  II $79.95 


Wargame  Constr.  ...... .S2 1.95 


Battlecrusser $36.95, 

Gemstone  Warrior $T4.95 


Activision: 

Enchanter  Tntogy $49.75 

Game  Maker $31 ,75 


Product 


Price 


Publisher/ 
Vendor 


System 


Description 


Making  Music  on  Micros     $69.95 


Random  House 
Software 


Apple  II,  11  + 


Learn  BASIC  programming  and  music  theory  at  the  same  time. 


Master  Composer 


$39,95 


Access  Software 


Commodore  64 


Melodian  ConcertMaster     $59.95 


Takes  full  advantage  of  the  sound  chip  to  produce  all  t>'pes  of 
music,  from  simple  melodies  to  intricate  compositions. 


Melodian  Keyboard  with    $159 
ConcerlMasler 


Melodian  Systems     Commodore  Combines  the  capabilities  of  a  music  synthesizer,  recording 

64/128  studio,  and  video  display.  CoucertMaster  creates  an  environment 

for  experimenting  and  learning  about  music. 


Melodian  Systems 


Commodore 
64/128 


Melodian  RhythmMaster    $59.95 


This  unique  system  is  a  major  advance  in  the  teaching,  learning, 
and  enjoyment  of  music. 


Melodian  Systems 


Commodore 
64/128 


Melodian  ScoreMaster         $59.95 


RhythmMaster  helps  develop  perfect  timing  through  the  use  of 
color-coded  video-displayed  notes. 


Melodic  Games 


S79 


Melodian  Systems     Commodore  Program  your  music  and  print  it  out  in  music  notation  which 

64/128  other  musicians  can  read  and  play.  Any  music  recorded  with 

Cancer iMaster  can  be  printed. 


VVenger  Computer 
Software 


Apple  II,  II -f.  He       Drill -and -practice  memor\'  dictation  for  ear  training. 


MIDI/4  H 


$129.95 


Passport  Designs 


Apple  n,  n  +  .  He; 
Commodore  64 


Four-channel  multitrack  composing  and  recording  tool  for  MIDI. 


MIDI/8  + 


$169.95 


Passport  Designs 


Apple  lie; 

Commodore 

64/128 


Eight-channel  multitrack  recording  software  that  turns  your 
computer  and  MIDI  keyboard  into  a  professional  recording 
studio. 


MIDI  Jazz  Improvisation     $79,00 


Electronic 
Courseware 


Apple  II  +  ,  He,  He 


Midimac;  Patch 
Librarian— Casio  CZ 


S75 


Opcode  Systems        Mac,  Mac  Plus 


Provides  instrumental  and  vocal  students  with  play-along 
material  to  learn  jazz  improvisation  using  original  tunes. 


MIDI  Processor 


$149.95 


Sonus 


Commodore 
64/128 


Made  for  the  Casio  CZ  synthesizer  with  several  banks  of 
patches  to  store  thousands  of  sounds  with  MIDI  capabilities. 


MIDI  Recording  Studio       $39 


A  processing  program  for  use  with  the  Super  Sequencer  or  Studio 
I  sequencers. 


Dr.  T's  Music  Atari  ST  A  MIDI  recording  program  for  those  just  beginning  to  work 

Software  with  MIDI,  with  a  stripped-down  version  of  parts  of  the  Dr.  T 

Keyboard  CotitroUed  Sequencer. 


MIDIsoft  Studio 

S99 

Passport  Designs 

Atari  ST 

A  multitrack  recording  studio  that  works  with  the  ST  and  any 
MIDI-equipped  instrument. 

MIDI  Tech  64 

$99.95 

Sonus 

Commodore 
64/128 

A  full-featured  monitor/system-exclusive  librarian  program. 

MIDI  Voice  Librarian 

$69.95 

Passport  Designs 

Apple  11 -f.  He,  He; 

Commodore 
64/128 

Over  100  great  new  sounds  for  MIDI  keyboard.  Load  up  to  four 
banks  of  32  sounds  at  any  moment. 

Musical  Computer  I  and 
II,  Version  1.0 

$34.95 

Computer 

Applications 

Tomorrow 

Apple  H  +  ;  Atari 
eight-bit; 
Commodore  64 

Teaches  music  fundamentals.  Covers  note  reading,  sharps  and 
Hats,  tempo  definitions,  and  more. 

Music  Box  I 

$59.00 

VVenger  Computer 
Software 

Apple  H,  H  +  ,  He, 
He;  Commodore 
64 

Four  programs  designed  to  aid  students  in  learning  and 
remembering  music  symbols. 

Music  by  Matrix 

S29.95 

Dynacomp 

Commodore  64 

Audiovisual  aid  to  help  the  student  understand  chords  and 
scales  in  terms  of  the  intervals  in%'olved. 

The  Musk  Class 

$39-49  each 

Wenger  Music 
Software 

Apple  H,  II +  ,  He, 
He.  lies 

A  five-part  music-instruction  series,  including  Fundamentals, 
Rhythm,  Ear  Training,  Music  Symbols,  and  Note  Reading, 

Music  Concepts^  Version 

LO 

$59.95 

Ventura 

Educational 

Systems 

AppleH,  H-J-,  He, 
He 

Introduce  the  concepts  of  music  theor>',  the  history  of  music  as 
we  know  it,  and  even  the  science  of  sound. 

Music  Construction  Set       S34.95-$69.95     Electronic  Arts 


Apple  H,  11^,  He, 
He,  Hch;  Atari 
eight-bit; 
Commodore 
64/128;  IBM  PC, 
PCjr,  PC  XT 


A  computer  music  program  that  everyone  can  enjoy.  Doesn't 
require  years  of  piano  lessons  or  learning  computer  codes. 


Music  Editor 


S20 


Affordable 
Softw^are 


IBM  PC 


Compose  songs  with  as  many  as  500  notes  per  song. 


Music  Logo 


$99.95 


Terrapin 


Apple  II,  H  +  ,  He, 
He 


Explores  musical  structure  and  extends  the  user's  musical 
understanding  and  appreciation. 


Music  Made  Easy 


$29,95 


Alfred  Publishing 


Apple  H  +  ,  He; 
Commodore  64 


Teaches  the  basics  of  music  in  a  step-by-step  course.  Lessons 
are  reinforced  with  drills  and  quizzes. 


Music  Magic 


$30 


Dayline  Software 


Commodore 
64/128 


Play  your  favorite  songs  and/or  compose  your  own  music. 


Musicman 

$29.95 

Zephyr  Services 

Apple  H,  n  +  .  He; 
IBM  PC,  XT,  PCjr 

Try  your  hand  at  composing  music  right  on  the  screen  with 
standard  musical  methods.  Save  compositions  on  disk  or  play 
some  of  the  sample  music  provided. 

Music  of  the  Masters:  I, 
II  III  and  IV 

$9.95 

Free  Spirit 
Software 

Commodore 
64/128 

Collections  of  works  by  major  classical  composers.  Instrument 
simulations  include  violin,  piano,  harpsichord,  Hute,  and  guitar. 

Music  of  the  Masters  V 

$9.95 

Free  Spirit 
Software 

Commodore 
64/128 

Approximately  one  hour  of  popular  themes  from  the  best- 
known  classical  works,  using  various  instrument  simulations. 

Music  Processor 

S24.95 

Sight  &  Sound 
Music  Software 

Commodore  64 

Create,  edit,  play,  and  compose  your  own  musical 
arrangements. 

Music  Program 

$19.95 

Micro  Demon 

TRS-80  Model  100 

Turns  any  Model  100  into  a  musical  instrument  by  modifying 
the  sound  routine. 

Music:  Rhythm 

$29 

MECC 

Commodore 
64/128 

Stimulating  practice  on  rhythmic  fundamentals.  For  beginning- 
to  advanced-level  music  students. 
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Product 

Price 

Publisher/ 
Vendor 

System 

Description 

Music:  Rhythm  and 
Pitch 

$29 

MECC 

Atari  eight-bit; 
Commodore  64 

Three  disks  which  can  be  used  singly  or  in  a  combination  to 
provide  practice  at  successive  levels  of  difficulty. 

Music:  Scales  and 
Chords 

$29 

MECC 

Atari  eight-bit; 

Commodore 

64/128 

Music  theory  and  drill -and -practice. 

Music  Shop 

$149.95 

Passport  Designs 

Commodore 
64/128 

Compose,  edit,  print,  and  play  back  with  a  joystick,  easy-to-use 
pull-down  menus,  and  your  MIDI  keyboard. 

Music  Studio 


$34.95-$59.95     Activbion 


Atari  eight-bit,  ST; 
Commodore 
64/128;  Amiga; 
IBM  PCjr;  Tandy 
1000;  Apple  lies 


Music,  lyrical  composition,  and  audio  synthesis  program  that 
lets  you  orchestrate,  mix,  create  sounds,  and  even  invent  new 
sounds. 


Music  System 


Music  Works 


$39.95  Firebird  Commodore  A  multitracking  sound  system.  Use  your  Commodore  keyboard 

64/128  to  enter  and  correct  music  with  the  cassette-recorder-style 

multitracking  functions. 


$49,95 


Hayden  Software      Mac 


Provides  all  the  tools  needed  for  anyone  to  create  and  edit 
music,  from  simple  melodies  to  fully  orchestrated  symphonies. 
Music  can  be  composed  on  a  standard  musical  staff  or  on  a 
player-piano  grid. 


Notable  Phantom 


$19.95 


Designware 


Apple  11+,  lie,  lie; 
Commodore  64; 
IBM  PC,  PCjr 


Learn  to  play  a  keyboard  instrument  and  to  read  music,  with 
the  help  of  funny  ghosts,  spiders,  and  The  Notable  Phantom. 


Notes 


$19.95 


Comput- Ability 


Apple  n-f ,  lie,  Ik 


Develop  speed  and  accuracy  in  identifying  each  musical  note  by 
its  letter  name.  For  ages  6  and  up. 


The  Orchestrator 


$49.95 


Intersect  Software      Atari  ST 


A  music  composition  and  entertainment  system  for  both  the 
experienced  and  beginning  musician.  MIDI  comparible. 


Party  Songs 


$15.95 


John  Henry 
Software 


Commodore 
64/128 


A  sing-along  software  program  with  old-time  favorites. 


Patch  Librarian- 
Yamaha  DX21/27/100 


Personal  Musician 


$75  Opcode  Systems        Macintosh,  Use  Mac  disks  to  store  thousands  of  sound  patches  for  the 

Macintosh  Plus  Yamaha  DX  synthesizer.  Takes  the  place  of  expensive  RAM 

cartridges.  Makes  using  inconvenient  cassette-tape  storage  of 
sounds  obsolete. 


$29.95 


Creative 

Software/ 

Activision 


IBM  PC,  PCjr 


Experiment  with  computer-generated  musical  tones  as  you  leam 
to  read  music  and  write  your  own  original  songs. 


Player  Piano 


S19.95 


Dynacomp 


Atari 


Turn  your  Atari  into  a  player  piano. 


Rock  'N'  Rhythm 


$26,95 


Spinnaker 
Software 


Atari  eight -bit; 

Commodore 

64/128 


Expand  and  develop  your  music  skills  by  taking  charge  of  your 
own  recording  studio. 


RX  Librarian 


S49.95 


Sonus 


Commodore 
64/128 


A  MIDI  librarian  that  works  with  the  Yamaha  RXll  and  RX21 
drum  machines. 


Song  Painter 


$59.95 


Rubicon 
Publishing 


Mac,  Mac  Plus, 
Mac  XL 


Turns  the  Mac  into  a  four- voice  synthesizer  that  lets  you  create 
your  own  music  with  no  knowledge  of  musical  notation. 


Songwriter 


Sound  Development 
System 


$19,95  Mindscape  Apple  Ii  +  ,  He,  lie;    Colorful  graphics  combined  with  editing  functions  for  over  28 

Atari  eight-bit;  different  songs.  Connector  cable  is  included  to  hook  up  to 

IBM  PC,  XT,  PCjr      stereo. 


$29.95 


Dynacomp 


Commodore  64 


Create  and  place  sound  effects  and  music  within  your  own 
BASIC  or  machine  language  programs. 


SoundScape  Pro  MIDI 
Studio 


$149 


Mimetics 


Amiga 


A  MIDI  recording  studio  consisting  of  several  interrelated  MIDI 
modules. 


Sound  Tracks 


$49 


MECC 


Apple  II,  II -f.  He, 
lie 


Turn  your  computer  into  a  musical  keyboard  with  this  package. 
For  ages  5-12. 


Staff  Master 


$45 


Micro 
Learning  ware 


Apple  II,  He,  lie 


Three  programs  for  the  beginning  music  student.  Excellent 
graphics.  For  grade-level  4  and  up. 


Stickybear  Music, 
Version  1.0 


$39.95 


Weekly  Reader 
Family  Software 


Apple  11,  II -f.  He, 
lie,  lies 


Compose  a  piece  of  music,  play  it,  change  the  tempo,  or  go  back 
and  change  notes  or  sections. 


Strum-Along  Songs  $69,95  DJ  Software  Commodore  Play  and  sing  your  favorite  songs  on  your  guitar  or  keyboard 

64/128  accompanied  by  your  own  backup  band  Each  disk  includes  15 

easy-to-play  songs. 


Studiomac,  Version  1,3        $125 


Creative  Solutions     Mac 


Create  music  and  play  it  out  over  a  Casio  CZlOl  synthesizer. 


SYNTHY'64 


$17.95 


Abacus  Software        Commodore  64 


A  music  and  sound  synthesizer  that  can  duplicate  a  piano, 
banjo,  flute,  drum,  or  almost  any  other  instrument.  You  can  also 
make  special -effects  sounds  in  an  endless  variety  of 
combinations. 


Terpsichore 


$49.95 


Great  Wave 
Software 


Macintosh, 
Macintosh  Plus 


3001  Sound  Odyssey 


$26.95 


Sight  &  Sound 
Music  Software 


Commodore  64 


Music  for  exclusive  use  with  ConcertWare+  and  ConcertWare+ 
MIDI  on  the  Macintosh. 

An  educational  odyssey  that  explores  the  basics  of  electronic 
music  synthesis  and  the  construction  of  sound  effects. 


12- Bar  Tunesmith 


$39.95 


Electronic 
Courseware 


Apple  U  +  ,  He,  Ik; 
Commodore 
64/128;  IBM  PC, 
PCjr;  Tandy  1000, 
1200,3000 


Helps  the  young  compose  and  play  simple  melodies  using  bar- 
graph  notation.  Choose  from  four  different  pitch  durations  and 
hear  tunes  played  at  varying  tempos. 


Xylophone/Square 
Puzzle 


$8.95 


Kid  ware 


Commodore 
64/128,  TI 


Play  any  of  nine  songs  or  program  your  own. 


The  data  for  this  guide  was  supplied  by  MENU— The  International  Database  Corporation.  For  further  evaluative  information,  or  to  insitre  that  your  product 
is  included  in  the  database,  contact  MENU,  1520  South  College  Avenue,  Fort  Collins,  Colorado  80524,  The  toll-free  number  is  l-SOQ-THE-MENU. 
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Rememory 


Charles  Horbert 


How  good  is  your  memory?  This  pro- 
gram lets  you  test  your  memory 
against  the  computer  or  a  friend.  The 
original  version  is  written  for  the 
Commodore  61  We  have  added  new 
translations  for  the  Amiga,  IBM 
PC/PCjr,  Apple  U  series,  and  Atari 
400,  800,  XL,  andXE.  The  Commodore 
and  Atari  versions  require  at  least  one 
joystick  The  IBM  PC/PCjr  version 
requires  BASICA  and  a  color /graphics 
card  for  the  PC  and  Cartridge  BASIC 
for  the  PCjr.  The  Apple  II  version 
works  on  any  Apple  Il-series  com- 
puter, under  DOS  3.3  or  ProDOS. 


"Rememory"  is  a  game  that  will 
push  your  powers  of  concentration 
and  memorization  to  the  limit. 
Type  in  the  program  listed  for  your 
computer  and  save  it.  Read  the  gen- 
eral instructions  and  refer  to  the 
specific  notes  for  your  computer 
before  you  begin  to  play. 

Playing  Rememory 

Rememory  is  played  on  a  grid  con- 
taining 54  boxes  arranged  in  a  9  X  7 
matrix.  Each  box  contains  a  graphics 
shape,  and  there  are  many  matching 
shapes  within  the  grid.  The  object  of 
the  game  is  to  find  ail  of  the  matches 
in  the  playing  grid  by  selecting  any 
two  boxes  at  a  time. 

The  graphics  cursor  (mouse 
pointer  in  the  Amiga  version)  indi- 
cates your  current  postion  on  the 
game  screen.  Move  the  cursor  to  the 
box  you  wish  to  select  using  the 
joystick,  mouse,  or  cursor  controls, 
depending  on  which  computer  you 
are  using.  When  you  select  the  box, 
the  computer  displays  the  shape 
which  it  contains, 

A  turn  consists  of  two  selec- 


tions. After  you  select  both  boxes, 
the  computer  displays  both  of  them 
briefly.  If  the  two  shapes  you  select- 
ed are  identical,  you  have  scored 
one  match,  and  those  shapes  re- 
main visible  on  the  board.  If  the 
shapes  do  not  match,  the  computer 
erases  them,  and  it  is  your  job  to 
remember  where  those  shapes 
were  found.  The  computer  scram- 
bles the  shapes  at  the  beginning  of 
each  game,  so  you  won't  know 
where  a  given  shape  is  found  until 
you  uncover  it. 

Rememory  can  be  played  with 
one  or  two  players.  When  you  play 
alone,  the  object  is  to  match  all  the 
shapes  in  the  fewest  number  of 
turns.  For  a  two-player  game,  the 
goal  is  to  score  more  matches  than 
your  opponent.  You  get  an  extra 
turn  every  time  you  succeed  in 
making  a  match.  If  you  set  a  time 
limit  for  each  move  (for  instance,  20 
or  30  seconds),  Rememory  can  be  a 
fast-paced,  exciting  two-player 
game. 

When  you  run  the  program,  it 
asks  how  many  players  will  play 
the  game.  Enter  the  number  of 
players,  1  or  2.  Then  the  program 
asks  how  many  matches  will  be 
required  to  finish  the  game.  If  you 
enter  the  maximum  number,  27, 
you  will  have  to  match  every  pair  of 
shapes  in  the  grid  to  finish.  If  you 
choose  a  lower  number,  the  game 
ends  when  you  achieve  the  desig- 
nated number  of  matches.  The  right 
side  of  the  screen  displays  the  cur- 
rent score. 

Commodore  64  Version 

This  version  of  Rememory  (Pro- 
gram 1)  can  be  played  with  one  or 
two  joysticks.  If  you  are  using  only 
one  joystick,  plug  it  into  port  2. 


§1  i 
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"Rememory"  for  the  Commodore  64,  a 
challenging  memory  game.  This  version 
uses  custom  machine  language  subrou- 
tines to  speed  up  its  graphics. 
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The  Amiga  version  of  "Rememory"  uses 
a  32-color  palette  and  color  cycling  to 
enhance  the  game's  visual  appeal  and 
difficulty. 
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The  Apple  II  version  of  "Rememory"  is 
played  with  the  keyboard  and  runs  with 
either  DOS  3  J  or  ProDOS. 
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**Rememory"  for  the  IBM  PC/PCjr. 


A  custom  display  list  is  used  to  achieve 
the  graphics  effects  in  **Rememory"  for 
the  Atari  400,  800,  XL,  and  XE. 

Amiga  Version 

The  Amiga  game  (Program  2)  is 
played  with  the  mouse.  Move  the 
mouse  pointer  to  the  desired  box 
and  press  the  left  mouse  button  to 
select  it.  In  the  two-player  game, 
the  colors  of  the  window  border 
change  to  indicate  whose  turn  it  is. 
To  add  to  the  interest  and  difficulty, 
this  program  uses  color  cycling  to 
change  the  colors  of  the  graphics 
shapes. 

IBM  PC/PCjr  Version 

This  version  of  Rememory  (Pro- 
gram 3)  requires  BASICA  and  a 
color/graphics  card  for  the  PC,  and 
it  requires  Cartridge  BASIC  for  the 
PCjr.  Move  the  cursor  with  the  cur- 
sor keys  and  press  Enter  to  select  a 
box.  For  a  two-player  game,  the 
scores  are  displayed  on  a  red  or 
green  background.  The  cursor 
changes  color  to  indicate  whose 
turn  it  is. 

Appfe  II  Version 

Rememory  for  the  Apple  II  (Pro- 
gram 4)  runs  on  any  Apple  Il-series 
computer  under  either  DOS  3.3  or 
ProDOS-  This  program  is  played 
with  the  keyboard.  Press  the  I,  J,  K, 
and  M  keys  to  move  the  cursor  up, 
left,  right,  and  down,  respectively. 
Press  the  space  bar  to  select  a  box. 
In  the  two  player  game^  the  asterisk 


(*)  indicates  whose  turn  it  is. 

Atari  400.  800,  XL.  And 
XE  Version 

The  Atari  version  of  Rememory 
(Program  5)  can  be  played  with  one 
or  two  joysticks.  If  you  use  only  one 
joystick,  it  should  be  plugged  into 
port  1, 

For  instnjctbns  on  entering  these  programs, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
fn  Programs"  elsewhere  in  this  issue 

Program  1 :  Commodore  64 
Rememory 

AP  10  RO— 2:CO=2 

BD  20  DIM  SYN(27,12) :DIM  BT{25 

,40) :DIM  MAT{53,16) 
JG  30  POKE  252,0:POKE  253,0:RE 

STORE 
KG  40  POKE  53280, 14: POKE  53281 

,14 
BQ  50  MA=0:S(0)=1000;S(1)=1000 

:C(0)=0:C(1)=0 
FH  60  GOSUB1290:GOSUB450:GOSUB 
750 ;GOSUB1080 :GQSUB1840 : 
GOSUB610:GOTO320 
BH  70  IFMA=NMTHEN  GOTO140 
AX  80  GOSUB1580:LET  B1=BX:G0SU 

B1500 
DP  90  GOSUB1580;LET  B2=BX:IF  B 

1=B2  THEN  GOTO 90 
SJ  100  GOSUB1500 
KJ  110  IF  MAT(B1,0)=MAT(B2,0) 

[SPACE] THEN  GOTO210 
HK  120  GOSUB1410;LET  BX=B1:G0S 

UB1410!LET  BX=B2 
MQ  130  GOTO 2 60 
KH  140  PRINT  "{home} IRVS} IWHT} 

{8  DOWN] [6  RIGHTlPRESS 

[SPACE} ANY  KEY  TO  CONTI 

NUE" 
FB  150  FOR  A=0TO10:GET  B$;NEXT 
CE  160  GET  A$:IF  A$= " "THENGOTO 

160 
PC  170  INPUT  "{2  DOWN}[RVS} 

t9  RIGHT} PLAY  AGAIN {Y  O 

R  N)";Z$ 
BP  180  IF  MID$(Z?,1, 1)="N"  THE 

N  GOTO 2 00 
RA  190  GOTO30 
MB  200  END 
GP  210  LET  MAT(B1,1)=99:LET  MA 

T(B2,I)=99 
CF  220  LET  C(UP)=C(UP)+1:LET  M 

A=MA+1 
MP  230  LET  S(UP)=S(UP)+1 
AX  240  IF  PL=2THENGOTO310 
DE  250  GOTO270 
GK  260  LET  S ( UP )=S (UP )+l 
FR  270  IF  PL=1  THEN  GOTQ310 
ED  280  IF  UP  =  0  THEN  GOTO300 
CM  290  LET  UP=0:GOTO310 
RP  300  LET  UP=1 
SG  310  POKE  1024+40*3+39, 96 :P0 

KE1024+40*12+39,96 
FF  320  IF  UP=0  THEN  POKE1024+4 

0*3+39,42 
PA  330  IF  UP=1THEN  POKE  1024+4 

0*12+39,42 
PA  340  POKE  251, UP: IF  JS=1  THE 

N  POKE  251,0 
PP  350  PRINT" {HOME} t 3  DOWN} 

{38  RIGHT}!" 
QB  360  PRINT" {38  RIGHT}UP" :LET 

S$=STR?(S(0) ) 
GP  370  PRINT "[37  RIGHT} "; RIGHT 

$(S$,3) 
AM  380  LET  C$=STR$ (C{0) ) 


CE 

385 

AS 

390 

GA 

400 

MH 

410 

DX 

420 

ss 

430 

PP 

435 

KB 

440 

GS 

450 

GX 

460 

XS 

470 

FB 

480 

BK 

490 

BF 

500 

CK 

510 

KM 

520 

GS 

530 

EQ  540 

GJ  550 

MK  560 

JH  570 

CH  580 

XA  590 

HP  600 

HE  610 

QA  620 

AJ  630 

JS  640 

PX  650 

RM  660 

FS  670 

MA  680 

MB  690 

RA  700 

DA  710 

DK  720 

KM  730 

RF  740 

RR  750 

HG  760 

KF  770 

DC  780 

BX  790 

CK  800 

FD  810 

SF  820 

QE  830 

CX  840 

PA  850 

RQ  860 

AM  870 

ME  880 

JH  890 

KG  900 

GA  910 

MP  920 

DH  930 


PRINT" [38  RIGHT}"; RIGHT 

$ ( C$  2 ) 

IF  PL=1  THEN  GOTO70 

PRINT" [HOME} [12  DOWN} 

[38  RIGHT} 2" 

PRINT "{38  RIGHT} UP" 

LET  S$=STR${S(1)) iPRINT 

"[37  RIGHT) "rRIGHT$(S$, 

3) 

LET  C$=STR$(C(1)) 

PRINT "{38  RIGHT] ";RIGHT 

$(C$,2) 

GOTO70 

FOR  R=0TO  24 

FOR  C=0TO39 

LET  BT(R,C)=88 

NEXT  C 

NEXT  R 

LET  T=00 

FOR  R=0TO  20  STEP  4 

FOR  C=0TO32STEP4 

BT { R+1 , C+1 )=T : BT ( R+1 t C+ 

2)=T 

BT ( R+1 , C+3 )=T ; BT ( R+2 , C+ 

1)=T 

BT  C  R+2 , C+2 )=T : BT ( R+2 , C+ 

3)=T 

BT ( R+3 , C+1 )=T : BT { R+3 , C+ 

2)=T 

BT ( R+3 , C+3 )=T : T=T+1 

NEXT  C 

NEXT  R 

RETURN 

REM  DRAW  BOARD 

PRINT  "{CLR}";C=0:X=224 

FOR  V=0TO24STEP4:GOSUB6 

60: NEXT 

FOR  H=0TO36STEP4:GOSUB7 

10: NEXT 

RETURN 

FOR  H=0TO36 

POKE  1024+40*V+H,X 

POKE  55296+40*V+H,C 

NEXT  H 

RETURN 

FOR  V=0TO24 

POKE 10 24+40 *V+H,X: POKES 

5296+40*V+H,C 

NEXT  V 

RETURN 

REM    INIT    SYM    TABLE 

FORX=0TO26 

FOR    Y=0TO11 

READ    SyM(X,Y) :NEXT    Y 

NEXT    X 

RETURN 

DATA    0,0,0,96,96,96,193 

,193,193,96,96,96 

DATA    0,2,0,96,96,96,96, 

90,96,96,96,96 

DATA    0,2,0,120,120,120, 

120,120,120,120,120,120 

DATA   0,2,0,96,2^4,96,22 

4,224,224,96,224,96 

DATA    0,2,0,230,230,230, 

230,230,230,230,230,230 

DATA    0,15,0,233,96,223, 

96,87,96,95,96,105 

DATA    0,9,0,224,223,96,9 

5,224,223,96,95,224 

DATA    0,0,0,231,205,205, 

206 , 206, 206, 229, 205, 229 

DATA    0,1,0,85,67,73,74, 

67,73,74,67,75 

DATA    0,6,0,214,214,214, 

214,214,214,214,214,214 

DATA    0,3,0,96,96,96,79, 

80,96,80,122,112 

DATA    0,11,0,127,127,127 

,127,127,127,127,127,12 

7 

DATA   0,1,0,224,224,224, 

224,224,224,224,224,224 
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XJ  940  DATA  0,9,0,112,67,110,9 

3,224,93,109,67,125 
AF  950  DATA  0,6,0,78,77,100,10 

0,78,77,78,77,100 
PG  960  DATA  0,6,0,85,114,73,10 

7,86,115, 74,113,75 
KC  970  DATA  0,2,0,224,224,224, 
224,224,224,224,224,224 
RB  980  DATA  0,9,0,110,0,112,10 

9,91,125,85,113,75 
RB  990  DATA  0,4,0,224,224,224, 
224,224,224,224,2  24,224 
SG  1000  DATA  0,7,0,91,91,91,91 

,91,91,91,91,91 
DM  1010  DATA  0,7,0,75,73,74,85 

,91,73,73,74,85 
HJ  1020  DATA  0,11,0,96,81,96,8 

5,91,75,74,113,73 
DM  1030  DATA  0,15,0,95,224,224 

,96,95,224,96,96,95 
GA  1040  DATA  0,13,0,85,96,73,9 

6,91,96,74,96,75 
KG  1050  DATA  0,9,0,77,96,78,96 

,86,96, 78,96,77 
ED  1060  DATA  0,9,0,96,96,96,79 

,80,96,76,122,96 
DR  1070  DATA  0,9,0,96,96,96,85 

,73,96,74,75,96 
QG  1080  REM  INIT  MAT  TABLE 
PE  1090  FOR  X=0TO53:MAT(X,4)-0 

:NEXT 
HC  1100  FOR  X^0TO26 
AF  1110  FOR  Y==0Tai 
DO  1120  LET  R9=INT(RMD{0)*54) 
HF  1130  IF  R9<0  OR  R9>53  THEN 

1  SPACE }G0T01 120 
CD  1140  IF  MAT(R9,4)=9  THEN  GO 

TO1120 
CM  1150  LET  MAT(R9,0)=X:MAT(R9 

, 1)=0:LET  MAT(R9,4)=9 
GR  1160  MATCR9, 2)=00:MAT(R9,3) 

^SYM(X,1) 
JR  1170  FOR  E=3  TO  11 
DG  1180  MAT(R9,E+2)=SyM(X,E) 
QC  1190  NEXT  E 
DX  1200  NEXT  Y 
HX  1210  NEXT  X 
BJ  1220  K=1:K2^1;A-0:B=8 
QS  1230  FOR  W=0TO5 
GE  1240  FOR  X=ATOB 
QD  1250  MAT(X,14)=K:MAT{X,15)^ 

K2:K2-K2+4;NEXT  X 
BJ  1260  K=K+4:K2=1 
GS  1270  A=A+9:B=B+9;NEXT  W 
CA  1280  RETURN 
DS  1290  REM  INPUT  OPTIONS 
XA  1300  LET  JS==1 
XD  1310  PRINT" {CLR]" 
ED  1320  INPUT  "[BLK)ONE  OR  TWO 

PLAYER  GAME"; PL 
BQ  1330  IF  PLol  AND  PL<>2  THE 

N1310 
HB  1340  IF  PL=2  THEN  INPUT" 

tCLR] t DOWN} ENTER  NO.  O 

F  JOYSTICKS (1  OR  2)"? J 

S 
QE  1350  IF  JSOl  AND  JS<>2  THE 

N1340 
FC  1360  INPUT"ENTER  NO.  OF  MAT 

CHES  (1-27 ) " rNM:NM=INT 

(NM) :IFNM<10RNM>27THEN 

1370 

IFNM<10RNM>27THENPRINT 

" { HOME } [ DOWN } " : GOTO 136 

0 

PRINT" ICLR] {10  DOWN] 

[6  RIGHT} PLEASE  STANDS 

y  FOR  45  SECONDS" 

LET  UP=0 

RETURN 

REM  BLANK  OUT  BOX 

POKE  6,6 


BJ  1370 


EA  1380 


GR  1390 
SG  1400 
BD  1410 
XB  1420 


CX  1430  X=MATCBX, 14):P0KE  252, 

X 
GJ  1440  X=MAT(BX,15):P0KE  253, 

X 
CA  1450  Y=96 
ME  1460  FOR  X=49414  TO  49422 :P 

OKE  X,Y:NEXT 
JF  1470  SYS49674 
GX  1480  RETURN 

OR  1490  X=MAT(BX,3):P0KE  6,X 
DQ  1500  X=MAT{BX,3);P0KE  6,X 
SM  1510  X=MAT(BX,14) :POKE  252, 

X 
DH  1520  X-MAT(BX,15) ;POKE  253, 

X 
AJ  15  30  Y=5 

RX  1540  FOR  X=49414  TO  49422 
XK  1550  Q=MAT(BX,Y):POKE  X,Q:Y 

=Y+1 :NEXT 
BJ  1560  SYS49674 
MG  1570  RETURN 
HK  1580  SYS49426:RO=PEEK(252) : 

CO=PEEK(253) 
DX  1590  IF  BT(R0,C0J=88  THEN  G 

OTO15B0 
XD  1600  BX=BT(RO,CO) 
FJ  1610  IF  MAT(BX,1)=99  THEN  G 

OTO1580 
HH  1620  RETURN 

ES  1630  DATA  0,0,0,0,0,0,102,1 
02,102,102,102,102,102 
,102,102,0,0,0,76,122 
JA  1640  DATA  193,24,166,251,18 
9,0,220,74,176,5,198,2 
52,76,70,193,24,74 
XK  1650  DATA  176,5,230,252,76, 
70,193,24,74,176,5,198 
,253,76,70,193,24,74 
AA  1660  DATA  176,5,230,253,76, 
70,193,24,74,176,211,3 
2,251,193,96,169,36 
XH  1670  DATA  197,253,208,4,162 
,0,134,253,169,25,197, 
252,208,4,162,0,134 
HQ  1680  DATA  252,24,169,0,101, 
253,16,4,162,35,134,25 
3,24, 169,0,101,252 
QD  1690  DATA  16,4,162,24,134,2 
52,173,5,193,201,0,240 
,3,32,251,193,169,1 
DB  1700  DATA  141,5,193,24,166, 
252,164,253, 142, 1,193, 
140,2,193,32,240,255 
SM  1710  DATA  32,165,193,32,207 
,193,169,113,32,210,25 
5, 162,48,160, 255,136 
SB  1720  DATA  208,253,202,208,2 
48,76,21,193,165,252,1 
62,1,134,250,10,10 
PQ  1730  DATA  101,252,10,10,38, 
250,10,38,250,101,253, 
133,249,169,0,101,250 
JA  1740  DATA  133,250,174,0,193 
,224,99,240,7,160,0,17 
7,249,141,4,193,96 
HM  1750  DATA  162,54,134,248,16 
5,252,133,247, 10,10,10 
1,247,10,10,38,248 
JS  1760  DATA  10,38,248,101,253 
,133,247,169,0,101,248 
,133,248,174,0,193 
QC    1770  DATA  224,99,240,7,160, 
0,177,247,141,3,193,96 
,173,4,193,160,0,145 
KS  1780  DATA  249,160,0,173,3,1 
93, 145,247,96,162,99,1 
42,0,193,162,0,142 
SE  1790  DATA  5,193,32,165,193, 
166,250,134,3,166,249, 
134,2,32,207,193,166 
SP  1800  DATA  248,134,5,166,247 
,134,4,162,0,142,0,193 


.5, 
r  .6, 


5, 
0, 


5,  .5, 
6,0, 


.5, .6, 
6,0,  ,6 


,162,3,142,15,193,162 

EA  1810  DATA  0,160,0,189,6,193 
,145,2,165,6,145,4,200 
,232,192,3,208,241 

MH  1820  DATA  24,169,40,101,2,1 
33,2,169,0,101,3,133,3 
,24,169,40,101,4,133 

RS  1830  DATA  4,169,0,101,5,133 
,5,206,15,193,160,0,20 
4,15,193,208,203,96 

SR  1840  FOR  X=49408TO49771jREA 
D  A: POKE  X, A: NEXT 

DE  1850  RETURN 

Program  2:  Amiga 
Rememory 

DEFINT  a-z:DEFSNG  r ,  g  ,  b,inx  :  RANDO 

MI2E  TIMER;  SCREEN  1 ,  320  ,  200  ,  5  ,  1-t 

WINDOW  3,"", (0,0) -(311, 186), 16,1 

: WINDOW  OUTPUT  3^ 

DIM  bn(5,8) ,cb{26) ,r(ll) ,b(ll) ,d 

f{7),aLt(7) ,hor(7),ver(7),sL(7), 

rn(7),ck(7}-^ 

RESTORE  PaletteData:FOR  i=0  TO  1 

5: READ  r, g, b : PALETTE  i,r,g,b;NEX 

T-* 

FOR  i=20  TO  21: READ  r,g,b:PALETT 

E  i,r,g,b:NEXT'fr 

FOR  i-0  TO  5: READ  r ( i ) , b( i ) ; PALE 

TTE  i+22,r(i) ,0,b(i) iNEXT* 

FOR  i=0  TO  5:r{il-l)=b(i) :b(ll-i 

)=r(i)  tNEXT-* 

PaletteData:  4 

DATA  0,0,0, . 5 , 

0,0-* 

DATA  0 ,  . 6 , 0 ,  .  6 

,.6-* 

DATA  0,0, 

,0^ 

DATA  0,0, 

5,. 5-6 

DATA  0,0,0,0,0,0* 

DATA  .6,0,  .8,0,1,0,  ,8,0,  .6,0 

.3-* 

FOR  i=0  TO  26:  READ  cb(i):NEXT'* 

DATA  9,4,13,15,3,0,9,6,12,9,4,20 

,13,0,0,0,22,12,9,13,15,15,9,8,9 

,3,104 

e$=SPACE?(3) SON  TIMER(l)  GOSUB  C 

ycLe-* 

FOR  1=0  TO  7-* 

df  (i)=6,HFFFF:ver(i)=£<HAAAA:rn(i) 

=RND*&HFFFF'* 

IF  (i  AND  1)  THEN  hor ( i )=&HFFFF : 

aLt(i)=&HAAAA  ELSE  aLt ( i }-&H5555 

IF  (i  AND  4)  THEN  Gk(i)^&HF0F0  E 

LSE  ck(i)=&HF0F-* 

NEXT-t 

FOR  i=0  TO  3: READ  sL( i ) : sL( i+4 ) - 

sL(i)  ;NEXT-4 

DATA  &H3333 , &H6666 , &hcGCC , &H9999 

Start:-* 

COLOR  2,0;CLS:GOSUB  InPLayersiLO 

GATE  13,9:GOSUB  InMatches-^ 

GOSUB  RandBoard;mf=0:ts=0:FOR  i= 

0  TO  l:tr(i)^0:sc(i)=0:NEXT-t 

GOSUB  DrawBoard:pL=0tm-l  ;  sw=0  :TI 

MER  ON-^ 

WHILE  ts<nm'* 

IF  np  THEN  PALETTE  1 , . 6* ( 1-pL) , . 

6*pL,0-* 

GOSUB  SelectBox:GOSUB  ShowPiG:rl 

=ro:cl=co:GaSUB  SelectBox : GOSUB 

ShowPic-fr 

IF  bn(rl,cl)=bn(ro,co)  THEN-* 

sc(pL)=sc(pL)  +  l;ts=ts+l  :m==0-< 

ELSE-« 

FOR  i=l  TO  4000: NEXT: GOSUB  HideP 

ic-* 

END  IF-* 

tr(pL)=tr(pL)+l! GOSUB  UpdateScor 

e:IF  m  THEN    pL=pL   XOR  np-* 


.6, .9, .9, .9, .9,0,0,0, .9 
.9,  .9,  .9,0,  .9,0,  .9,  ,5,  . 

.5, 
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WEND-* 

COLOR    15,0:  LOCATE    9,10:PRIbJT    "An 

other    game    (y/n)?"-* 

EndLp:  k$=UCASE?ClNKEY$} :IF  k5=" 

Y"  THEN  Start-* 

IF  k$=="N"  THEN  TIMER  OFF:  SCREEN 

CLOSE  liWINDOW  CLOSE  3 : END  ELSE 

EndLp-t 

4, 

SelectBox:-* 

WHILE  MOUSE{0)-0:WEND:px=MOUSE(l 

)  :py==M0USEC2)  :  WHILE  MOUSEC0)<>0: 

WEND-e 

IF  P0INT(px,py)<>2  THEN  SelectBo 

x-* 

px==px  AND  &HFFE0:py=py  AND  &HFFE 

0:ro=INT(py/32) : go=INT( px/32) spy 

=py+8  -* 

RETURN-* 

ShowP  i  c :  -< 

n=bn(ro, CO ): COLOR  ,cb(n):GOSUB  H 

ide-* 

ON  n+1  GOTO  1,1,1,2,3,4,5,6,7,8, 

9,10,11,12,13,14,15,16,17,18,19, 

20,21,22,23, 24, 1-t 

LOCATE  cy, CXI  PRINT  STR$ (bn ( ro, co 

))^ 

1  RETURN^ 

2  COLOR  0:LOCATE  cy+i , cx+1 : PRINT 
CHR? { 2 14 ) : PAINT ( px+i2 , py+12 ) \ RET 
URN-6 

3  COLOR  13:a$=CHR$(191)+CHR$(63) 
:  LOCATE  cy,  ex  :  PRINT  a$CHR$(191)-« 
LOCATE  cy+l,CX: PRINT  CHR$(63)a$: 
LOCATE  cy+2, ex: PRINT  a$CHRS{191) 
; : RETURN  ^ 

4  PATTERN  ,3L:F0R  i=0  TO  7: COLOR 
i+7-t 

LINE(px+2*i,py+2*i)-(px+23-2*i,p 
y+23-2*i) , ,bf :NEXT:PATTERN  ,df:R 
ETURN-t 

5  COLOR  10:AREA(pX+2,py-§-12)  lAREA 
STEP(10,-i0)  :AREA  STEP(  10  ,  10  ) -* 
AREA  STEP(-10,10) ;AREA  STEP (-10, 
-10) : PATTERN  , hor ; AREAFILL : PATTE 
RN  ,df:RETURN-fr 

6  COLOR  14:G0SUB  Triangle lAREAFI 
LL: RETURN  ^ 

7  COLOR  13:CIHCLE(px+19,py+5) ,2: 
PAINT(px+20,py+5)'* 

PATTERN  ,sL:GOSUB  Triangle : AREAF 

ILL  J  PATTERN  ,df:RETURN'fr 

a  COLOR  ,3:L0CATE  cy, cx+1 : PRINT 

SPACE$(1}:L0CATE  cy+1 , cx : PRINT  e 

?* 

LOCATE  cy+2, cx+1 SPRINT  SPACE$ (1 ) 

;  :  RETURN-* 

9  FOR  i=0  TO  2: FOR  j=0  TO  2: COLO 
R  20+((i+j)  AND  1) :x=px+5*i+7:y= 
py+5*j  +  7-* 

CIRCLE(x,y}  ,2:NEXT  j,i:RETURN-6 

10  COLOR  21:G0SUB  Box: PATTERN  ,a 
Lt: AREAFILL: PATTERN  ,df:RETURN-fr 

11  COLOR  6:G0SUB  Box; PATTERN  , sL 
:  AREAFILL:  PATTERN  ,df:  RETURN-* 

12  COLOR  14: PATTERN  ,hor:x=px+4: 
y=pyf4:G0SUB  Diamond  :AREAFILL'« 
x=px iy=py+12  sGOSUB  Diamond  t AREAF 
ILL-* 

x=px+12 :y-py+16 iGOSUB  Diamond :AR 
EAFILL:  PATTERN  ,df:  RETURN-* 

13  FOR  i=0  TO  11:C0L0R  (i  MOD  6) 
+22:LINE(px,py+2*i)-(px+23,py+23 
-2*i)  :NEXT-* 

RETURN-* 

14  FOR  1^0  TO  11: COLOR  {i  MOD  6) 
+22:LINE(px,py)-(px+2*i,py+23-2* 

i)^ 
LINE(px+23,py+23)-(px+2*i,py+23- 

2*i)  : NEXT:  RETURN-* 

15  COLOR  24;G0SUB  BOX: PATTERN  ,a 
Lt:  AREAFILL:  COLOR  ,0-t 

LOCATE  cy+l,GX+l: PRINT  SPACE?(1) 
:  PATTERN  ,df:  RETURN-* 


16  COLOR  20;x-px+B;y=py+12:GOSUB 
Diamond: AREAFILL:  X=X+4-* 
CIRCLE(x,y)  ,  2,  21 :  PAINT(x,y)  ,21,2 
1: RETURN^ 

17  COLOR  12:G0SUB  Triangle rPATTE 
RN  ,ver: AREAF ILL: PATTERN  , hor: CO 
LOR  9,12-* 

AREA(px,py) :AREA  STEP( 23 , 0 ) ; AREA 
STEP(0,23)  :AREA  STEP  ( -23  , -23  }  ■* 
AREAFILL:  PATTERN  ,df:  RETURN-* 

18  PATTERN  , rn : PAINT( px, py ) , 22 , 0 
:  PATTERN  ,d£:  RETURN-* 

19  PATTERN  , ok : PAINT ( px , py) , 0 , 0 : 
PATTERN  ,df:  RETURN-* 

20  COLOR  15,0:LINE{px,py+7)-(px+ 
23,py+7)  ,0-* 

LOCATE  Gy+l,CX: PRINT  CHR$(240)CH 
R$(245)CHR$(240)  :  RETURN-* 

21  FOR  i=l  TO  ll:LINECpx,py+i*2) 
-(px+23,py),10-* 

LINE(px,py+23)-(px+23,py+i*2),12 
:  NEXT;  RETURN-* 

22  FOR  1=4  TO  20 : LINE ( px , py+i ) - ( 
px+23,py+i}, (i  MOD  4 ) +28 : NEXT: RE 
TURK-* 

23  COLOR  0:LINE(px,py+17)-{px+6, 
py+9):LINE  -STEP( 6 , 2 ) ; LINE  -STEP 
(6,6)-* 

LINE  -STEP (5,0) ;PAINT(px,py},0,0 
:LINE(px,py+16)-(px+6,py+8),28-* 
LINE  -STEP (6, 2), 29: LINE  -STEP(6, 
6),30:LINE  -STEP  (  5  ,  0  ),  31  :  RETURN-* 

24  LINE(px,py+8)-(px+23,py+16)  ,0 
:  PAINT(  px  ,  py+23  )  ,  5  ,  0  :  RETURN-* 

4> 

Triangle:-* 

AREACpx,py) :AREA  STEP( 23 , 23 ) : ARE 

A  STEP(-23,0) ;AREA  STEP( 0 , -23 ) : R 

ETURN-* 

Diamond;-* 

AREA(x,y) ;AREA  STEP ( 4 , -4 ) ; AREA  S 

TEP (4,4): AREA  STEP (-4,4): AREA  ST 

EP(-4,-4)-* 

RETURN-* 

4 

Box  1^ 

AREA(px,py) : AREA  STEP (23,0) :AREA 
STEP(0,23)  :AREA  STEP( -23  ,  0  ) -* 
AREA  STEP(0, -23  ):  RETURN-* 

HidePic:-* 

COLOR  ,2:G0SUB  Hide : ro=rl : CO=cl : 

GOSUB  Hide:  RETURN-* 

Hide:  cx=4*co+l  :  cy=4*ro+2-* 

FOR  i=0  TO  2: LOCATE  cy+i,cx:PRIN 

T  e$;  : NEXT:  RETURN-* 

UpdateScore  :-* 

COLOR  0,pL+3:pr=^8*pL-4*np+13  :  LOC 

ATE  pr,37:s$  =  STR$(tr(pL)  )-* 

PRINT  RIGHT? ( "00"+RIGHT$ ( s$ , LEN( 

S$}-1),3)4 

LOCATE  pr+2,37:s$^STR5(sG(pL)  )-* 

PRINT  RIGHT$  (  "00''  +  RIGHT$  (  s$  ,  LEN( 

s?)-l},3)-* 

RETURN-* 

DrawBoard:-* 

CLS:  COLOR  ,2:F0R  i-0  TO  23-* 

IF  (i  AND  3)<>0  THEN4 

FOR  j=0  TO  8: PRINT  e$SPC ( 1 ) ; :NEX 

T-* 

END  IF-* 

IF  i<23  THEN  PRINT-* 

NEXT-* 

FOR  pL=0  TO  np; COLOR  0,pL+3:FOR 

j=0  TO  6: LOCATE  8*pL-4*np+10+ j , 3 

7-* 

PRINT  e$ : NEXT: LOCATE  8*pL-4*np+l 

1,37: PRINT  STR$ ( pL+1 ) JGOSUB  Upda 

teScore:NEXT-* 

RETURN-* 

RandBoard:-* 

i=0:FOR  j=0  TO  4  STEP  2 : FOR  k=0 


TO  8:bn( j,k)=i:bn( j+l,k)=iti-i+l 

:NEXT  k,  j-* 

FOR  j=0  TO  5:F0R  k-0  TO  8:sj=INT 

(RND*5)  :sk=INT(RND*9)-* 

t-bn ( s  j , sk ) : bn ( s  j , sk ) =bn ( j , k ) ; bn 

(j,k)=t:NEXT  k,j-* 

RETURN-* 

4, 

InPLayers;-* 

LOCATE  11, 9: PRINT  "Number  of  pla 

yers  (1/2)?"-* 

GetKey:k$=INKEy$:IF  k$=""  OR  {k$ 

<>"'l"  AND  k$<>"2'*)  THEN  GetKey-* 

np=VAL(k$)-i-* 

RETURN-* 

4, 

InMatches  :-* 

INPUT  "Number  of  matches  (1-27)? 

",s$-* 

nm^VAL(s$) :IF  nm<l  OR  nm>27  THEN 

nm=27-* 

RETURN-* 

CycLe:-* 

nsw=sw  XOR  1; PALETTE  20,0,sw*.9, 
0:  PALETTE  21 ,  0  ,  nsw*  .  9  ,  0-* 
sw=(sw+l)  MOD  2;cc=(cc+l)  MOD  12 

FOR  cn=28  TO  31: PALETTE  en, 1,1,1 

:NEXT: PALETTE  {^d    MOD  4) +28, 0,0, 

1-* 

FOR  cn=0  TO  5:ck=(cG+Gn)  MOD  12: 

PALETTE  cn+22,r(ck),0,b(ck) :NEXT 

RETURN-* 

Program  3:  IBM  PC/PCjr 
Rememory 

Bfl  10  KEY  OFF:DEF  SEG=0:DEFINT  A 
-Z:POKE  1047, PEEK (1047>  OR 
64:RAND0HIZe  TIMER 
SA  20  SCREEN  0,1:WIDTH  40:LOCATE 

, ,0: COLOR  B, 0,0; CLS 
frt  30  DIM  CF<26) ,CB(26) ,PS*(26,2 
) ,BN(5,e>:G0SUB  1500: GOSUB 
4000: LOCATE  13, 9: GOSUB  45 
00 
Dfl  40  GOSUB  3000:RO=0:CD=0:PX=1: 
PY=1:MF=0:TS=0:FOR  1=0  TO 
1 ; TR ( I) =0: SC ( I) =0: NEXT: GOS 
UB  1000: PL-0 
U  45  WHILE  TS<NM 

U   50  GOSUB  2000: IF  BN(R0,C0)=27 
THEN  50  ELSE  GOSUB  1200: R 
l=RO:Cl=Ca 
00  i0  GOSUB  2000:  IF  (BN(R0,CD)=2 
7)  OR  (<R1=R0)  AND  (C1=C0) 
)  THEN  60  ELSE  GOSUB  1200 
JK  70  IF  BN(R1,C1>=BN(R0,C0)  THE 
N  3C(PL)=SC(PL)+i;TS=TS+l: 
BN (R0»  CO) =27 : BN  t  Rl , C 1 ) =27 
ELSE  FOR  1=1  TO  2000: NEXT: 
GOSUB  1100 
DL  80  TR(PL)=TR(PL)+1:G0SUB  1070 
!lF  BNCR0,C0)<27  THEN  PL-P 
L  XDR  NP 
GO  90  WEND 
BA  100  COLOR  7,0:LOCATE  9,10:PRI 

NT  "Another  game  (Y/N)?'* 
HB  110  K4=INKEY*:IF  K*="Y"  THEN 
CLS! LOCATE  13,7:SDSUB  450 
0: COLOR  BjGOTD  40 
m    120  IF  K*="N"  THEN  CLS: END  EL 

SE  110 
N£  1000  E*=STRINGS<3,219> 
fIB  1010  FOR  1=0  TO  23:  LOCATE  ,2 
HA  1020  IF  CI  AND  3)<>0  THEN  FOR 
J=0  TO  8: PRINT  E*SPC (1 J 
; ;NEXT 
6A  1030  IF  I<23  THEN  PRINT 
ai  1040  NEXT 

II  1050  FDR  PL=0  TO  NP: COLOR  0,P 
L«2+2:F0R  J=0  TO  faiLOCAT 
E  a«PL-4*NP+10+J,3a:PP' 
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/ 


LN  1150 


JE  1200 


n  1500 

fIL  1510 
SK  1520 


T  SPACE* C3) : NEXT; LOCATE 

S*PL-4*NP+1 1,38: PRINT  ST 

R*(PL+1) iGOSUB  1070: NEXT 
JN  1060  RETURN 
IB  1070  COLOR  0,PL*2+2:PR=8*PL-4 

*NP+13: LOCATE  PR,38;S$=S 

TR$(TR (PL)): PRINT  RIGHT* 

("00"+RIGHT*CS*,LEN(S*)- 

1)  ,3) 
PC  1090  LOCATE  PR+2,3e:S*=STR*(S 

C (PL)): PRINT  RIGHT* < "00" 

BRIGHT* (5$, LEN(S*)-1) ,3) 
J6  1090  RETURN 
OJ  1100  COLOR  8:6GSUB  1150:R1=RO 

:C1=C0:G0SUB  1150: RETURN 

X=4*Cl+2: Y=4*Rl+2: LOCATE 
Y,X:PRINT  E*DL*E*DL*E*; 

: RETURN 

LOCATE  PY+1,PX+1:N=BN(R0 

, CO): COLOR  CF CN) , CB (N) :P 

RINT  PS*(N,0)DL*PS*(N, 1) 

DL*PS*(N,2) ; : RETURN 

DL*=CHR«  C31 ) +STRING* (3, 2 

9) 

FOR  1=0  TO  26 

READ  CF(I) ,CBCI) :FOR  J=0 
TO  2: READ  T0, Tl , T2: PS* ( 

I , J ) =CHR* ( T0 ) +CHR* ( T 1 ) +C 

HR*CT2) :NEXT  J, I 
JQ  1530  RETURN 
CP  1800  DATA  6,1,168,63,168,63,1 

68,63, 168,63, 168 
PD  1805  DATA  7,5,201,202,187,211 

,210,210,218,208,215 
m    1810  DATA  14,4,32,32,32,32,15 

,32,32,32,32 
DH  1S15  DATA  9,2,15,15,15,15,178 

, 15, 15, 15, 15 
^^N  1820  DATA  4,7,244,244,159,245 

,179,244,159,245,245 
DP  1825  DATA  8,2,177,176,177,176 

, 177, 176, 177, 176, 177 
PF  1830  DATA  8,0,223,223,223,6,6 

,6,220,220,220 
ON  1835  DATA  13,1,32,32,32,157,3 

2, 157,32,157,32 
6F  1840  DATA  0,7,176,176,176,176 

, 176, 176, 176, 176,176 
6f<  1845  DATA  10,2,32,4,32,4,32,4 

,32,4,32 
NI  1850  DATA  4,7,32,219,32,219,2 

19,219,32,219,32 
DH  1855  DATA  7,3,178,178,178,178 

,178,178,178,178,178 
JF  1860  DATA  0,6,206,206,206,206 

, 206 , 206 , 206 , 206 , 206 
OM  1865  DATA  0,4,32,32,32,32,32, 

32,32,32,32 
ME  1870  DATA  14,0,219,219,219,21 

9,219,219,219,219,219 
DF  1875  DATA  3,1,247,247,247,247 

, 247, 247, 247, 247, 247 
nn    1880  DATA  12,4,222,186,221,24 

0,  240, 240, 222, 186, 221 
eP  1885  DATA  4,0,32,95,32,248,32 

,248,92,236,47 
ni    1890  DATA  3,5,248,248,248,248 

, 248, 248, 248, 248, 248 
NL    1895    DATA    0,2,32,32,32,32,32, 

32,32,32,32 
FB    1900    DATA    12,5,177,177,177,17 

7,  177,177,177,  177,  177 
"[    1905    DATA    4,7,248,249,248,250 

, 249, 248, 250, 249, 250 
.F    1910    DATA    15,7,32,32,237,32,2 

37,32,237,32,32 
BK    1915    DATA    12,1,184,64,213,192 

,197,217,214,193,  183 
FG    1920    DATA    13,4,232,32,232,32, 

32,32,232,32,232 
D!    1925    DATA    1,7,14,32,32,32,32, 

32,32,251,32 
BC    1930    DATA    10,1,188,32,200,32, 
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234,32, 187,32,201 

FH  2000  BOSUB  2500 

Ifi  2005  K*=RIGHT*(INKEY*, 1) : IF  K 
*=""  THEN  2005  ELSE  K=AS 

FH  2010  IF  K=13  THEN  LOCATE  PY,P 

X SPRINT  SPACE*(5) ;;LOCAT 

E  PY+4,PX SPRINT  SPACE* (5 

> ; : RETURN 
AE  2020  IF  K=72  THEN  IF  RO>0  THE 

N  RO=RO-lsGDSUB  2500 
Sh  2030  IF  K=S0  THEN  IF  R0<5  THE 

N  R0=R0+1:G0SUB  2500 
PH  2040  IF  K=75  THEN  IF  CO>0  THE 

N  C0=C0-1:G0SUB  2500 
Gfl  2050  IF  K=77  THEN  IF  C0<8  THE 

N  C0=C0+1:G0SUB  2500 
NK  2060  GOTO  2005 
FL  2500  X=4*CD+1:  Y=4*R0-*-liC0L0R 

PL»2+2,0 
£0  2510  LOCATE  PY,PX: PRINT  SPACE 

*  (5);:  LOCATE  PY-**4,  PX:PRI 

NT  SPACE* <5) ; 
KL  2S20  LOCATE  y,X: PRINT  CHR*(21 

8)SPC(3)CHR*(191) ;:LOCAT 

E  Y+4,X: PRINT  CHR*(192)S 

PCC3)CHR*C217); 
LE  2530  PX=X:PY=Y 
K   2540  RETURN 
IE  3000  1=0: FOR  J=0  TO  4  STEP  2: 

FOR  K=0  TO  8:BN(J,K)=I:B 

NCJ  +  1,K)=I:  I  =  I-M:NEXT  K, 

J 
D6  3010  FOR  J=0  TO  5: FOR  K=0  TO 

S:SJ=INT(RND*5):SK=INT(R 

ND*9) 
HA  3020  T=BNCSJ,SK) :BN(SJ,SK)-BN 

(J,K):BN(J,K)=T:NEXT  K,J 
IS  3030  RETURN 
Bf  4000  LOCATE  11, 9: PR I NT  "Numbe 

r  of  players  (1/2)?" 
KD  4010  K*=INKEY*:IF  K*=""  OR  (K 

*<>"i  ■  AND  K*<>"2'*)  THEN 
4010 
HJ  4020  NP=VAL(K*)-1 
IH  4030  RETURN 
(ID  4500  INPUT  "Number  of  matches 

(1-27)?  ",S* 
£H  4510  NM=VAL{S*> : IF  NM< 1  OR  NM 

>27  THEN  NM=27 
JO  4520  RETURN 

Program  4:  Apple  II 
Rememory 

«9  20  HOME  :  GOSUB  4000:  VTAB  13 
:  HTAB  5:  GOSUB  4500 

52  30  DIM  PS*(26,2),BN(5,8>;  GOS 

UB  1500:  GOSUB  10000 
DC  40  GOSUB  3000:  RO  =  0:CO  =  0:P 
X  =  1:PY  =  1:MF  =  0;TS  =  0 
:  FOR  I  =  0  TO  1:TRCI)  =  0 
:SC(I)  =  0:  NEXT  :  GOSUB  1 
000: PL  =  0:  BOSUB  1095 
n  50  GOSUB  2000:  IF  BN(Ra,CO)  = 
27  THEN  50 

53  55  GOSUB  1200:  Rl  =  R0:C1  =  CO 
B0  60  GOSUB  2000:  IF  (BN(RO,CO) 

=  27)  OR  ((Ri  =  RO)  AND  CC 

1  =  CO) )  THEN  60 
IB  65  GOSUB  1200 
E3  70  IF  BN(R1,C1)  =  BN(RO,CO)  T 

HEN  SC<PL)  =  SC(PL)  +  1 ; TS 
=  TS  +  1:BN(R0,C0)  =  27:B 

N(R1,C1)  -    27:  GOTO  80 
D7  75  FOR  I  =  1  TO  1000:  NEXT  : 

GOSUB  1100 
4D  80  TR<PL>  =  TRCPL)  +  1:  GOSUB 
1070:  IF  BN(RO,CO)  <  27  T 

HEN  PL  =  NP  -  PL 
il  90  IF  TS  <  NM  THEN  GOSUB  1095 

;  GOTO  50 
&&  100  VTAB  8:  HTAB  8:  PRINT  "AN  I 


OTHER  GAME  (Y  OR  N)?  "j 
EA  110  GET  Kt:  IF  KS  =  "Y"  THEN 

VTAB  12:  HTAB  4:  GOSUB  45 

00;  HGR2  s  GOTO  40 
fi4  120  IF  K*  =  "N"  THEN  HOME  :  E 

NO 
91  130  GOTO  110 

95  1000  HOME  ;E*  -    "":  FOR  1=0 
TO  2:E*  =  Et  +  CHR*  (32 

) :  NEXT 
ft6  1010  K  ==  0:  FOR  I  =  0  TO  23: 

HTAB  2:  IF  K  =  4  THEN  K 

-    0 
SB  1020  IF  K  <  >  3  THEN  FOR  J  = 

0  TO  8:  INVERSE  :  PRINT 

E«;:  NORMAL  :  PRINT  SPC ( 
l);s  NEXT 
EF  1030  IF  I  <  23  THEN  PRINT 
61  1040  K  ^  K  +  1:  NEXT 
B6  1050  FOR  PL  =  0  TO  NPs  INVERS 

E  s  FOR  a  =  0  TO  6:  VTAB 
StPL-4«NP  +  9  +  J 

5  HTAB  38:  PRINT  E*:  NEX 

T  s  VTAB  S  «  PL  -  4  »  NP 
+  10:  HTAB  39:  PRINT  ST 

R*  (PL  -t-  1)  :  GOSUB  1070: 
NEXT 
E9  1060  RETURN 

ft*  1070  INVERSE  : PR  =  8  *  PL  -  4 
t  NP  -^  12:  VTAB  PR;  HTA 

B  38: S*  =  STR*  (TR(PL)): 
PRINT  RIGHT*  ("00"  +  S* 

,3) 
BD  1080  VTAB  PR  +  2;  HTAB  38:  S* 

=  STR*  (SC(PL)):  PRINT  R 

IGHT*  ("00"  +  S*,3) 
B3  1090  NORMAL  :  RETURN 
DB  1095  INVERSE  :  VTAB  8  *  NP  « 

(1  -  PL)  -  4  «  NP  +  10: 

HTAB  38:  PRINT  CHR*  (32) 

:PR  =  8  t  PL  -  4  *  NP  + 

10:  VTAB  PR:  HTAB  38:  PR 

INT  CHR*  (105):  NORMAL  : 
RETURN 
IF  1100  INVERSE  :  GOSUB  1150;  Rl 

=  ROsCl  =  CO:  GOSUB  1150 

s  NORMAL  :  RETURN 
3C  1150  X  =  4«C1+2:Y  =  4«R 

1+1:  VTAB  Ys  HTAB  X:  P 

RINT  E*:  HTAB  X:  PRINT  E 

*:  HTAB  X:  PRINT  E*; :  RE 

TURN 
BB  1200  FOR  J  =  0  TO  2:  VTAB  PY 

+  J:  HTAB  PX  +  1:  PRINT 

PS*(BN(RO,CO),J) ;s  NEXT 

:  RETURN 
EB  1500  FOR  I  =  0  TO  26;  FOR  J    = 

0  TO  2 
38  1510  PS*  (I,  J)  =  STR*  (I):  NEX 

T  J,  I 
F3  1520  FOR  I  =  0  TO  26:  FOR  J  = 

0  TO  2 
F5  1530  READ  T0,  Tl ,  T2:  PS*  ( I ,  J  )  - 
CHR*  (T0)  +  CHR*  (Tl)  + 
CHR*  (T2):  NEXT  J,  I 
EB  1540  RETURN 
25  1800  DATA  35,35,35,35,35,35,3 

5,35,35 
31  1810  DATA  58,63,58,63,58,63,5 

8,63,58 
71  1820  DATA  64,64,43,64,43,32,4 

3,32,32 
D5  1830  DATA  32,44,64,42,32,44,6 

4,42,32 
fl4  1840  DATA  33,32,34,32,35,32,3 

4,32,33 
B4  1850  DATA  47,46,46,47,46,46,4 

6,47,47 
4E  1860  DATA  36,38,37,32,39,36,3 

9,36,39 
17  1870  DATA  64,91,64,92,91,92,6 

4,91,64 
4«  1880  DATA  61,61,61,61,61,61,6 

1,61,61 
47  1890  DATA  91,91,91,91,91,91,9 


1,91,91 
?F  1900  DATA  92,91,92,64,64,64,9 

1,92,91 
49  1905  DATA  45,32,42,32,94,32,4 

4,32,43 
hi    1910  DATA  39,32,37,32,93,32,3 

8,32,36 
82  1915  DATA  36,37,38,39,59,37,3 

7,38,39 
32  1920  DATA  46,46,46,46,46,46,4 

6,46,46 
£fl  1925  DATA  94,93,94,94,93,94,9 

4,93,94 
Al  1930  DATA  91,92,91,91,92,91,9 

1,92,91 
EA  1935  DATA  92,91,92,92,91,92,9 

2,91,92 
30  1940  DATA  95,95,95,95,95,95,9 

5,95,95 
5D  1945  DATA  32,32,32,96,96,96,3 

2,32,32 
45  1950  DATA  97,97,97,97,97,97,9 

7,97,97 
E£  195S  DATA  98,33,33,34,34,34,9 

9,33,99 
£4  1960  DATA  34,33,100,100,34,33 

,34,33, 100 
2F  1965  DATA  32,96,32,39,59,36,3 

8,59,37 
F4  1970  DATA  32,39,37,32,38,36,3 

2,32,32 
77  1975  DATA  101,102,101,101,102 

, 101, 101, 102, 101 
7D  1980  DATA  103,104,103,103,104 

, 103, 103, 104, 103 
42  2000  GOSUB  2500 
7E  2010  GET  K»:  IF  K*  -  CHR*  (32 

>  THEN  VTAB  PY:  HTAB  PX: 
PRINT  CHR«  (32>;:  HTAB 

PX  +  4:  PRINT  CHR«  (32): 
VTAB  PY  +  2:  HTAB  PX:  P 

RINT  CHRS  C32J;:  HTAB  PX 
+  4:  PRINT  CHR«  (32) :  R 

ETURN 
29  2020  IF  K*  =  "I"  THEN  IF  RO  > 
0  THEN  RO  =  RQ  -  1:  BOS 

UB  2500 
BC  2030  IF  K*  =  "M"  THEN  IF  RO  < 
5  THEN  RO  =^  RO  +  1:  GQS 

UB  2500 
DA  2040  IF  K*  =  "J"  THEN  IF  CO  > 
0  THEN  CO  =  CO  -  1:  GOS 

UB  2500 
C2  2050  IF  K$  =  "K"    THEN  IF  CO  < 
a  THEN  CO  =  CO  +  1:  BOS 

UB  2500 
69  2060  GOTO  2010 
B6  2500  X  =  4«C0+i:Y  =  4*R 

0  +  1 
9F  2510  VTAB  PY:  HTAB  PX:  PRINT 

CHR*  (32); :  HTAB  PX  +  4: 
PRINT  CHR*  (32):  VTAB  P 

Y  +  2:  HTAB  PX:  PRINT  CH 

R»  (32) ; :  HTAB  PX  +  4:  P 

RINT  CHR*  (32) ; 
2A  2520  VTAB  Y:  HTAB  X:  PRINT  CH 

R«  (62) ; :  HTAB  X  +  4:  PR 

INT  CHR*  (60) :  VTAB  Y  + 

2:  HTAB  X:  PRINT  CHR*  (6 

2); ;  HTAB  X  +  4;  PRINT  C 

HR*  (60) ; 
C5  2530  PX  =  X:PY  =  Y 
EC  2540  RETURN 
4C  3000  1=0:  FOR  J  ='  0  TO  4  ST 

EP  2:  FDR  K  =  0  TO  QsBNC 

J,K)  =  I:BN(J  +  1,K>  =  I 

:I  =-  I  +  1:  NEXT  K,J 
27  3010  FOR  J  =  0  TO  5:  FOR  K  = 

0  TO  8:SJ  =  INT  (  RND  (1 

)  »  5) ISK  =  INT  (  RND  (1 

)  t  9) 
U   3020  T  =  BN(SJ,SK) :BN(SJ,SK) 

=  BN(J,K):BN(J,K)  =  T:  N 

EXT  K,J 
DF  3030  RETURN 


hh   4000  VTAB  11:  HTAB  5:  PRINT  " 

NUMBER  OF  PLAYERS  (1  OR 

2)?  "; 
«F  4005  K  =  PEEK  (49152)  :R  =  RND 
(Us  IF  K  >  127  THEN  PO 

KE  49168,0 
CA  4010  IF  K  <  >  177  AND  K  <  >  1 

78  THEN  4005 
n   4020  NP  =  K  ^  177 
£0  4030  RETURN 
15  4500  INPUT  "NUMBER  OF  MATCHES 

(1  TO  27)?  ";S4 
D5  4510  NM  =  VAL  CS*)  r  IF  NM  <  1 

OR  NM  >  27  THEN  NM  =  27 
Ei  4520  RETURN 
3fl  10000  HGR2  :  GOSUB  10990:  GOS 

UB  12000 
M  10030  IF  PEEK  (190  *  256)  =  7 

6  THEN  PRINT  CHR*  (4);" 

PR#A768":  GOTO  10050 
F9  10040  POKE  54,0:  POKE  55,3:  C 

ALL  1002 
FC  10050  POKE  6,0:  POKE  7,128;  P 

OKE  230,64 
83  10060  RETURN 
F2  10990  FOR  I  =  768  TO  855:  REA 

D  A:  POKE  I, A:  NEXT  :  R 

ETURN 
F3  11000  DATA  216,120,133,69,134 

,70, 132,71 
5E  11010  DATA  166,7,10,10,176,4, 

16,62 
6S  11020  DATA  48,4,16,1,232,232, 

10, 134 
A3  11030  DATA  27,24,101,6,133,26 

,144,2 
?7  11040  DATA  230,27,165,40,133, 

a, 165,41 
flS  11050  DATA  41,3,5,230,133,9,1 

62,  G 

54  11060  DATA  160,0,177,26,36,50 

.48,2 
BB    11070  DATA  73,127,164,36,145, 

8,230,26 
£4  11080  DATA  208,2,230,27,165,9 

,24, 105 
7A  U090  DATA  4,133,9,202,208,22 

6, 165,69 
3£  11100  DATA  166,70,164,71,88,7 

6,240,253 
F2  12000  FOR  I  =  32768  TO  33359: 
READ  A:  POKE  I, A:  NEXT 
t  RETURN 
50  12010  DATA  0,0,0,0,0,0,0,0 
4i  12020  DATA  1,3,6,12,24,48,96, 

64 
JB  12030  DATA  64,96,48,24,12,6,3 

,1 
DF  12040  DATA  65,99,54,28,28,54, 

99,65 
25  12050  DATA  152,152,152,143,13 

5,128, 128,128 
C3  12060  DATA  128,128,128,135,14 

3,152,152,152 
4C  12070  DATA  140,140,140,248,24 

0,128, 128, 128 
4S  12080  DATA  128,128,128,240,24 

S, 140, 140, 140 
m    12090  DATA  128,176,152,140,14 

0,152,176,128 
Al  12100  DATA  128,134,140,152,15 

2, 140, 134,128 
BE  12110  DATA  0,1,3,7,15,31,63,1 

27 

55  12120  DATA  127,63,31,15,7,3,1 

,0 
i2    12130  DATA  127,126,124,120,11 

2,96,64,0 
ZZ    12140  DATA  0,64,96,112,120,12 

4, 126, 127 
AF  12150  DATA  25,51,102,76,25,51 

,102,76 
IE  12160  DATA  76,102,51,25,76,10 

2,51,25 
3B  12X70  DATA  128,188,230,246,23 


8.230.198. 128 

«B  12190  DATA  128,152,156,152,15 

2.152.188. 129 

B3  12190  DATA  128,188,230,176,14 

0,230,254,128 
93  12200  DATA  120,188,230,176,22 

4.230.188. 128 

95  12210  DATA  128,176,184,180,25 

4,176, 176,120 
aC  12220  DATA  128,254,134,190,22 

4.230. 188. 129 

IB  12230  DATA  128,189,134,190,23 

0,230,188, 128 
E6    12240  DATA  128,254,224,176,15 

2,140,140,  128 
DB  12250  DATA  128,199,230,188,23 

0,230, 188, 128 
73  12260  DATA  129,188,230,230,25 

2, 176,152, 128 
DI  12270  DATA  128,152,128,152,17 

6,230,198, 128 
0B  12280  DATA  140,140,140,255,25 

5, 140, 140,140 
37  12290  DATA  128,152,140,134,14 

0, 152,128,129 
IE  12300  DATA  157,178,149,191,12 

8, 173,205, 186 
A2  12310  DATA  128,140,152,176,15 

2,140,128,128 
fa  12320  DATA  128,188,230,176,15 

2,128,152,129 
17  12330  DATA  255,255,255,255,25 

5,255,255,255 
D?  12340  DATA  128,252,230,230,25 

4,230,230,128 
D7  12350  DATA  120,190,230,230,19 

0,230,254,128 
7B  12360  DATA  128,188,230,134,13 

4,230,190,128 
BF  12370  DATA  128,190,230,230,23 

0,230, 190,128 
F2  12380  DATA  128,254,134,134,19 

0,134,254,120 
FB  12390  DATA  128,254,134,134,19 

0, 134, 134,129 
65  12400  DATA  129,189,230,134,24 

6,230, 190, 128 
4i  12410  DATA  128,230,230,230,25 

4,230,230, 128 
BA  12420  DATA  129,  152,  152,  152,  15 

2. 152.152. 128 

3A  12430  DATA  128,224,224,224,22 

4,230,198,128 
9C  12440  DATA  128,230,230,182,15 

0,230,230, 128 
U    12450  DATA  128,134,134,134,13 

4.134.254. 129 

6C  12460  DATA  128,230,254.230,23 

0,230,230,129 
AD  12470  DATA  128,190,230,230,23 

0,230,230,120 
CB  12490  DATA  128,198,230,230,23 

0,230,198, 128 
D3  12490  DATA  128,190,230,230,19 

0,134,134, 128 
0F  12500  DATA  128,108,230,230,23 

0, 102,236, 128 
V    12510  DATA  128,190,230,230,19 

0,230,230, 128 
CI  12520  DATA  129,188,230,140,17 

6,230, 190,128 
B7  12530  DATA  120,254,152,152,15 

2, 152, 152,128 
4E  12540  DATA  128,230,230,230,23 

0,230, 190, 128 
5i  12550  DATA  128,230,230,230,23 

0,230, 152, 120 
CA  12560  DATA  128,230,230,230,23 

0,254,230, 128 
A2  12570  DATA  128,230,230,230,18 

8,230,230,128 
22  12500  DATA  128,230,230,230,19 

8, 152,152, 128 
8£  12590  DATA  128,254,176,152,14 

0, 134,254, 128 
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F9  12600  DATA  170,170,170,170,17 

0, 170, 170, 170 
8A  12610  DATA  213,213,213,213,21 

3,213,213,213 
C5  12620  DATA  162,  162,  170,  136,  13 

6,170,162,162 
23  12630  DATA  136,136,170,162,16 

2, 170, 136, 136 
63  12640  DATA  85,127,42,0,85,127 

,42,0 
2Z    12650  DATA  0,8,42,42,42,42,8, 

0 
B8  12660  DATA  74,109,85,74,106,7 

3, 123,43 
43  12670  DATA  96,96,96,96,96,96, 

96,96 
A8  12680  DATA  3,3,3,3,3,3,3,3 
4B  12690  DATA  0,0,0,0,0,0,0,127 
•F  12700  DATA  85,85,85,85,85,85, 

85,85 
17  12710  DATA  42,42,42,42,42,42, 

42,42 
CB  12720  DATA  0,8,34,8,34,8,34,8 
D«  12730  DATA  0,8,34,8,34,8,34,8 
D3  12740  DATA  8,42,28,8,28,42,8, 

0 

Program  5:  Rememory  For 
Atari  400,  800,  XL,  And  XE 

SJ  1  OPEN  #1  ,  4,  0,  "K:  "  :  PRINT 

CHR$  C 125) 
IL  2  DIM  SPACEl*  (40)  ,  SPACE2* 
C  20 )  ,  BN  (  5 , S )  ,  S*  ( 6 )  , TR  C 1 
) , SC ( 1 ) 
HE  5  6DSUB  4000  :  POS  I  T  I  QN  9,1 

3!GDSUB  4500 
HN10  GRAPHICS  0:POKE  82,0:P 

OKE  83,39 
FH  15  POKE  752,  1  :  PRINT 
DE20  DLIST  =  PEEK  (560) +PEEK  (5 

61) *256 
CD  30  FOR  T  =  6  TO  28  STEP  2:P 
OKE  DLIST-hT,  6s  NEXT  T 
POKE  756,226 
SCREE N  =  PEEK  (88) +PEEK  (8 
9) *256 

FOR  1=0  TO  660  STEP  60 
s  K  =  SCREEN+I 

FOR  J=40  TO  59:P0KE  K+ 

J,  128!NEXT  JsNEXT  I 

POKE  710,0:POKE  752,1 

GOSUB  3000: ROW=0i CDL= 

0:MF=0: TS=0: FOR  1=0  T 

0  1 ! TR( I ) =0: SC  CI) =0; N 

EXT  I: GOSUB  1000! PL=0 

OH  110  GOSUB  2000:  IF  BNCROW, 

C0L)=27  THEN  110 
BE  115  eOSUB  1200:  PROW-ROW:  P 

COL=COL 
BH  120  GOSUB  2000:  IF  (BN<ROW 
,C0L)=27)  OR  ((PROW^R 
OW)  AND  CPCOL=COL) )  T 
HEN  120 
NL  125  GOSUB  1200 
DD  130  IF  BN  (PROW,  POOL)  =BN  (R 
QW,COL)  THEN  SCtPL)=S 
C  (PL)  H-1  :  TS  =  TS+1  :  BN  £RD 
W, COL) =27: BN (PROW, PCD 
L)=27:G0T0  140 
FDR  1=1  TO  200:NEXT  I 
iGDSUB  1100 
TR  <PL) =TR (PL) +1 : GOSUB 
1080; IF  BN(ROW,CDL)< 
27  THEN  PL=NP-PL 
GOSUB  1070: IF  TS<NM  T 
HEN  110 

POSITION  10,9:PRINT  " 

ANOTHER  GAME  (Y/N)?": 

POKE  SCREEN+40, 128 

JF  170  GET  #1,K:IF  K  =  B9  THEN 

GRAPHICS  0:PRINT  CHR 

«  t 125)  : RUN 

OB  180  IF  K  =  78  THEN  GRAPHICS 


PL  4  0 

CB  50 

m  60 

rta  80 

Pfl  90 

Bfl  105 

KK 

135 

JH 

140 

OB 

150 

DN 

160 

0;PRINT  CHR*(125):EN 
D 
SL  190  GOTO  170 
IK  1000  P0S  =  SCREEN  +  63:F0R  I  =» 

0  TO  5:FDR  J=0  TO  8i 

POKE  4«J+PDS, 128: POK 

E  4tJ+PDS+l , 128; NEXT 
J!POS=PDS+120:NEXT 

1 
IL1050  POSITION  1,.0:PRINT  " 

«P1  000  000" : IF  NP=1 
THEN  POSITION  29,0: 

PRINT  "P2  000  000" 
ND  1060  GOTO  1099 
6C  1070  POSITION  27*PL+1,0:P 

RINT  "t"! POSITION  27 

«  (  1-PL)  +  1 , 0: PRINT  CH 

R* (32) ! GOTO  1099 
D!  1080  PR  =  27»PL  +  8:  S*  =  STR«  CT 

R (PL) ) : POSITION  PR-L 

EN (S*) , 0: PRINT  S* 
IN  1090  S*  =  STR*  (SC  (PL)  )  :  POSI 

TION  PR+4-LEN CS*) , 0: 

PRINT  S* 
DC  1099  POKE  SCREEN  +  40,  128:  R 

ETURN 
JK1100  PIC  =  27:60SUB  1150:PR 

DW=ROW:PCOL=COL: GDSU 

B  1150:RETURN 
EH  1  150  XP0S  =  PCOL:  YPOS  =  PRDW: 

GOSUB  20000:RETURN 
NO  1200  PIC  =  BN  (ROW,  COL)  :  X  POS 

=  COL:  YPOS=-ROW:  GOSUB 

20000: RETURN 
AK  2000     GOSUB     2510 
ftfl  2  00  5     JY  =  STICK  (PL*JS)  :  POKE 

77,0 
JA2010     IF     STRIG  (PLItJS)=0    TH 

EN  POKE  PCUR,PC1:P0K 

E  PCUR+3, PC2: RETURN 
rH2020  IF  JY=14  THEN  IF  ROW 

>0  THEN  R0W-R0W-1:G0 

SUB  2500 
Pi  2030  IF  JY=13  THEN  IF  ROW 

<5  THEN  ROW=RaW+l:GO 

SUB  2500 
KI  2040  IF  JY=11  THEN  IF  COL 

>0  THEN  C0L=C0L-1:60 

SUB  2500 
IC2050  IF  JY  =  7  THEN  IF  COL< 

8  THEN  CDL=C0L+1:Q0S 

UB  2500 

FOR  1-0  TO  50SNEXT  1 

:60T0  2005 

POKE  PCUR, PCI :P0KE  P 

CUR+3, PC2 

CUR=SCREEN+ROW* 120+4 

ICOL+6  2: PCi=PEEK (CUR 

) : PC2=PEEK (CUR+3) 

POKE  CUR,32:P0KE  CUR 

+3, 32: PCUR=CUR 

RETURN 

I^0:FOR  J=0  TO  4  STE 

P  2;F0R  K=0  TO  8:BN( 

J,K)=r:BN(J+l,K)=I:I 

=I+1:NEXT  KiNEXT  J 
SL3010  FOR  J=0  TO  5:F0R  K  =  0 
TO  B:  SJ  =  INT  (RND (0)  * 

5):SK=INT(RND(0)*9) 
^D  30  2  0  T  =  BN  (SJ,  SK)  :  BN  (SJ  ,  SK 

) =BN ( J , K)  : BN  C J, K) =T: 

NEXT  KiNEXT  J 
KG  3030  RETURN 
IN  4  00  0  POSITION  9,9:PRINT  " 

NUMBER  OF  PLAYERS   (1 

/  2  )  ?  "  ; 
FF4010  GET  #1,NP:IF  NP049 

AND  NP<>50  THEN  4010 
KG  4020  NP  =  NP-49:IF  NP  =  0  THE 

N  4060 
IP14030  POSITION  9,11:PRINT 

"NUMBER  OF  JOYSTICKS 
(  1  /2)  ?"'  ; 
F:  4040  GET  *H,JS:IF  JS049 

AND  JS<>50  THEN  4040 


GJ 

2060 

BC  2500 

BO  2510 

f^ 

2520 

Kl 

2530 

cc 

3000 

HK   4050  JS  =  J5-49 
*:ff4060  RETURN 

^J  4500  PRINT  "NUMBER  OF  MAT 
CHES  (  1-27)  " ;  :  INPUT 
St: IF  S*=" "  THEN  S$= 
"  0  " 
HB4510  NM  =  VAL  (5$)  :  IF  NM<  1  0 

R  NM>27  THEN  NM=27 
KL  4520  RETURN 
JK  10000  DATA  81,69,65,82,82 

, 68, 90, 67 
NH  10010  DATA  209,207,0,74,7 

2, 0, 154, 131 
KO  10020  DATA  12,3,0,93,91,0 

,  3,B6 
DK  10030  DATA  2,86,75,79,75, 

79,2,86 
6J  10040  DATA  20,84,0,212,21 

2, 0, 84, 20 
JE  10050  DATA  96,128,0,96,96 

, 0,  128,96 

HG  10060  DATA  8,128,0,28,30, 

0, 128,204 
n  10070  DATA  73,79,65,83,83 

,68,75,76 
EG  10080  DATA  201,207,26,84, 

84, 26,203, 204 

15  10090  DATA  11,128,66,3,3, 

86, 128, 15 
GE  10100  DATA  209,195,75,82, 

82, 79, 209, 195 
flj  10110  DATA  124,124,0,60,6 

0, 0, 124, 124 
EJ  10120  DATA  61,61,217,0,0, 

89, 61 , 61 
NH  10130  DATA  254,254,0,31,3 

1,0, 254, 254 
FE  10140  DATA  109,109,45,55, 

45, 55,  1 19,  1  19 
«B  10150  DATA  1,4,65,68,65,6 

8,  1,4 
BD  10160  DATA  1,68,0,139,139 

, 0, 1 , 68 
Dft  10170  DATA  128,128,0,211, 

211,0, 203, 204 
Nff  10180  DATA  128,128,0,72,7 

4, 0, 205, 204 
DE  10190  DATA  73,79,0,128,12 

8, 0,203, 204 

16  10200  DATA  73,128,0,90,69 

,0,  128, 76 
OG  10210  DATA  209,128,0,90,6 

9, 0, 128, 209 
DP  10220  DATA  128,128,0,251, 

251 ,0, 128, 128 
Bfl  10230  DATA  71,70,0,66,86, 

0,70,71 
G8  10240  DATA  213,213,0,0,0, 

0, 206,206 
OA10250     DATA    6,7,0,0,0,0,7, 

6 
FN  10260     DATA     198,198,0,70,7 

0,0, 198, 198 
EK  10270  DATA  128,128,0,128, 

128,0, 128, 128 
FF  20000  REM  Call  with  PIC  h 

oldlng  the  picture 

number,  XPOS  &  YPOS 
holding  the  card  p 

osi  ti  on  ( 0-8, 0-5) 
JL  20020  RESTORE  PIC*10+1000 

0 
JO  20040  START  =  SCREEN  +  YPOS«  1 

20+XPOS+XPOS 
CK  20050  FOR  1  =  1  TO  2:READ  A 

: POKE  START+40+I , A: 

NEXT  I 
BK  20060  FOR  1  =  1  TO  4:READ  A 

:POKE  START+61+I+XP 

OS+XPOS, A:NEXT  I 
FJ  20070  FOR  1^1  TO  2:READ  A 

:POKE  START+100+I , A 

:NEXT  I 
m   20080  RETURN  (g 
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Reviews 


On  Balance 

James  V,  Trunzo 

Requirements:  Apple  11 -series  computer 
with  a  minimum  of  128K.  Both  3^/2-inch 
and  BVi-inch  disks  contained  in  each 
package. 

After  a  hard  day's  work,  few  people 
want  to  take  time  to  manage  the  money 
they  make.  In  our  house,  that  task  is 
ably  handled  by  my  wife.  Now,  in  order 
to  make  her  job  a  little  easier,  1  had,  in 
the  past,  tried  to  get  her  to  use  my 
computer  and  any  number  of  home 
accounting  software  packages.  My  ef- 
forts, however,  were  in  vain.  Either  it 
took  too  many  hours  to  set  up  accounts 
prior  to  even  beginning  to  use  the  soft- 
ware, or  the  programs  were  too  compli- 
cated for  those  of  us  without  a  degree  in 
accounting.  All  we  really  needed  was  a 
computerized  checkbook  program  with 
the  ability  to  do  some  neat  things,  like 
sorts,  Nothing  we  found  could  over- 
come her  preference  towards  her  own 
calculator,  pen,  and  paper  system.  That 
is,  nothing  could  until  Broderbund  re- 
leased its  newest  productivity  package: 
On  Balance. 

On  Bala?}ce  is  a  money  manage- 
ment program — which,  incidentally,  is 
not  copy  protected — that  so  closely 
simulates  the  most  basic  of  non- 
computer  household  systems,  it  de- 
stroys the  inhibitions  many  people 
have  about  using  a  computer  to  aid  in 
financial  management.  The  fact  that  it 
emulates  the  system  most  households 
are  already  using  makes  it  unintimidat- 
ing  to  novices,  giving  them  the  security 
they  need  to  fairly  evaluate  the 
program. 

Simple  And  Versatile 

On  Bala?ice  allows  the  user  to  begin 
working  with  it  immediately.  After  ten 
minutes  of  initial  setup,  you  can  begin 
making  full  use  of  the  program.  While 
you  can  create  all  your  accounts  before 
making  any  entries  if  you  so  desire,  On 
Balance,  unlike  many  other  similar  fi- 
nancial packages,  doesn't  require  that 
you  do  so.  Accounts  can  be  established 
on  the  fly.  If  entering  the  details  of  a 


check  is  your  first  transaction,  you  set 
up  your  checking  account  at  that  time. 
If  your  next  entry  is  a  deposit  into  a 
savings  account,  just  answer  the  series 
of  onscreen  questions,  and  another  ac- 
count has  come  into  existence.  Simplic- 
ity is  one  of  On  Balance's  best  features. 

However,  don't  confuse  simplicity 
with  lack  of  sophistication  or  get  the 
idea  that  this  program  is  a  watered- 
down  version  of  a  ''real"  home  ac- 
counting program — On  Balance  is  as 
complete  a  program  as  any  of  its  type 
currently  on  the  market.  It's  just  that 
Broderbund's  program  allows  you  a  tre- 
mendous amount  of  versatility,  and  it 
doesn't  require  that  you  use  all  of  its 
features  if  you  need  only  a  few.  And  it 
certainly  has  enough  features.  For  in- 
stance: On  Balance  will  handle  all  stan- 
dard record  keeping,  reconcihation 
tasks,  budgets,  check  printing,  and  so 
forth.  It  will  generate  reports  showing 
your  net  income  and  net  worth  as  well 
as  reports  on  individual  accounts  and 
transaction  lists.  It  will  even  print 
graphs  allowing  you  fo  compare  a  vari- 
ety of  financial  information^  like  money 
spent  versus  money  budgeted.  And  it 
does  all  these  things  in  a  speedy,  clear, 
simple  way— which  is  what  really  sep- 
arates it  from  others  of  its  ilk. 

Part  of  the  ease  of  use  implied 
above  stems  from  On  Balance's  use  of 
pull-down  windows  and  constant  on- 
screen menus.  Using  a  mouse,  a  key- 
board, or  a  combination  of  both,  the 
user  selects  major  elements  of  the  pro- 
gram from  a  menu  line  at  the  top  of  the 
screen.  This  drops  a  window  containing 
more  detailed  choices.  For  example,  se- 
lecting "Accounts"  from  the  menu  line 
will  open  a  window  listing  all  the  ac- 
count types  that  have  been  created. 
Furthermore,  onscreen  help  is  almost 
always  available,  and  editing  is  a  snap 
if  modification  is  needed  due  to  change 
or  error, 

Other  features  aid  in  the  speed  and 
usefulness  of  the  program.  An  ever- 
present,  full-functioning  calculator 
hides  behind  the  main  screen,  waiting 
to  be  summoned  through  the  use  of 
Open  Apple-C,  and  a  Notepad  is  also 
always  available  to  jot  down  important 
notations  about  a  transaction.  Another 
feature  that  saves  the  user  time  and 


trouble  is  the  ability  to  enter  a  set  of 
regular  payments,  like  a  mortgage  pay- 
ment. For  example,  not  only  will  On 
Balance  prepare  itself  to  handle  these 
recurring  transactions,  it  will  also 
prompt  you,  through  the  use  of  on- 
screen messages,  when  one  is  due.  Of 
course,  these  are  just  a  few  of  the  fea- 
tures built  into  On  Balance. 

Manipulating  Data 

Once  you  have  entered  information, 
you  can  manipulate  it  in  a  variety  of 
ways.  Searches  and  sorts  can  provide 
you  with  various  forms  of  comparisons 
that  will  clearly  show  you  where  your 
money  is — ^or  where  it  went.  Search  by 
date,  check  number,  payee,  dollar 
amount,  or  even  text;  and  send  the  data 
to  a  customized  report.  Then  view  the 
information  that  you  requested  either 
on  your  monitor  screen  or  on  paper.  On 
Balance  lets  you  record  up  to  800  trans- 
actions a  month,  and  Broderbund 
claims  that  users  can  store  an  entire 
year's  data  on  a  single  disk.  This  is  an 
important  factor  if  you  wish  to  flag 
certain  transactions  throughout  the 
year  (for  example,  tax-related  entries) 
and  pull  them  all  at  one  time. 

One  other  thing:  On  Balance  is 
compatible  with  AppleWorks.  This 
means  that  the  user  can  both  export 
financial  data  from  On  Balance  to 
AppleWorks  and  do  forecasting  and  ana- 
lyzing without  having  to  re-enter  start- 
up figures.  A  special  disk  facilitates  the 
exporting  of  information  from  one  pro- 
gram to  the  other. 

Overall,  On  Balance  is  an  impres- 
sive piece  of  work.  It  is  designed  to  put 
you  in  charge  of  your  financial  affairs 
by  giving  you  a  wide  variety  of  infor- 
mation in  a  simple,  easily  understand- 
able fashion.  Whether  you're  setting  up 
a  budget,  keeping  track  of  stock  pur- 
chases, or  simply  balancing  your  check- 
book. On  Balance  helps  you  do  the  job 
quickly  and  painlessly. 

On  Balance 

B r0derb und  Softiva re 

17  Paul  Dr. 

San  Rafael  CA  94903-2101 

$99,95 

(Interactive  demo  disk  available  for 

$7.99.  Price  can  be  applied  to  purchase 

of  full  package  at  later  date  J 
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Amnesia 

James  V.  Tninzo 

Requirements:  Apple  il  series,  IBM  PC 
and  compatibles,  and  Commodore  64 
computers. 


It's  not  the  type  of  thing  one  often,  if 

ever,  thinks  about.  Yet,  for  a  moment, 
consider  the  terrifying  prospect  of  com- 
plete memory  loss.  Your  entire  life  dis- 
appears. All  those  you  have  grown  to 
know  and  love — or  even  hate— be- 
come strangers.  The  career  you've  built 
and  the  knowledge  you've  gained  dis- 
solve into  nothingness.  Your  solitude  is 
so  complete  that,  upon  looking  in  a 
mirror,  you  don't  even  know  the  face 
staring  back  at  you. 

The  rather  unpleasant  concept  of 
complete  memory  loss,  or  amnesia,  is 
the  basis  for  Electronic  Arts'  first  jour- 
ney into  the  text  adventure  genre.  Em- 
ploying the  considerable  skills  of 
Thomas  M.  Disch,  winner  of  the  Camp- 
bell Award  for  best  science  fiction  novel 
in  1980,  EA  thrusts  the  player  into  the 
hazy  world  of  an  amnesia  victim  who 
lives  in  New  York  City:  As  this  charac- 
ter, you  wake  up  in  the  fictional  Sun- 
derland Hotel  suffering  from  acute 
amnesia,  and  are  lacking  any  comfort- 
ing physical  resources  like  food,  cloth- 
ing, or  money.  As  you  stumble  about 
trying  to  piece  together  information 
that  will  literally  return  your  life  to  you, 
you  discover  that  things  could  get 
w^orse.  As  the  package  copy  notes:  "A 
strange  w^oman  wants  to  marry  you.  A 
strange  man  is  trying  to  kill  you.  The 
state  of  Texas  wants  you  for  murder.,.," 
and  you  still  aren't  sure  w^ho  you  are. 

Beyond  The  Ordfnary 

Amnesia,  like  other  well-designed  text 
adventures,  puts  you  in  a  predicament 
and  challenges  you,  with  the  aid  of  an 
extensive  and  sophisticated  parser,  to 
figure  out  which  piece  goes  where  in 
the  giant  puzzle.  However,  Amfiesia 
goes  well  beyond  ordinary  text  adven- 
tures, many  of  which  arrived  after  Info- 
com's  shining  successes. 

Electronic  Arts  lives  up  to  its  repu- 
tation by  building  its  electronic  novel  in 
Manhattan — all  of  Manhattan.  There 
are  four  thousand  individual  and  au- 
thentic locations  on  this  eclectic  urban 
island,  including  650  streets  and  the  en- 
tire Manhattan  subway  system.  Central 
Park,  Chinatown,  Soho,  Broadway  and 
42nd  Street,  Times  Square,  Greenwich 
Village,  the  Battery,  and  even  the  Brook- 
lyn Bridge  are  all  faithfully  reproduced. 
If  you  care  to  find  out  how  faithfully, 
cruise  Central  Park  at  2:00  in  the  morn- 
ing (from  the  safety  of  your  home).  Am- 


nesia's internal  clock  keeps  very  accurate 
time,  so  the  muggers  know  when  to 
come  out.  Actually,  part  of  the  enjoy- 
ment of  playing  Amnesia  is  wandering 
about  fabulous  Manhattan,  especially  if 
you're  familiar  with  some  of  it.  Even  if 
you  aren't,  don't  despair:  Electronic  Arts 
provides  you  with  a  detailed  street  map 
of  the  borough,  as  well  as  a  complete 
map  of  the  subway  system. 

Beyond  the  vast  scope  of  the  gam- 
ing environment  that  makes  up  Amne- 
sia, Disch  and  EA  have  not  glossed  over 
the  details  that  make  day-to-day  exis- 
tence possible.  In  Amnesia,  you  need 
money  or  credit  cards  to  function.  Res- 
taurants and  stores  open  and  close  ac- 
cording to  schedule.  The  television 
news  (w^orth  watching,  incidentally) 
comes  on  at  7:00  in  the  evening.  Your 
character  is  aware  of  the  time  of  day, 
and  it  becomes  hungry  and  sleepy. 

Because  Amnesia  occurs  in  a 
modern-day  setting  that  incorporates 
many  familiar  physical  surroundings,  it 
may  appeal  to  some  game  players  that 
don't  enjoy  the  mythical  or  space-age 
formats  that  many  computer  games 
employ.  This  1980's  urban  backdrop 
also  provides  the  game  wath  a  sense  of 
realism  that  may  be  a  bit  unsettling. 

The  program  itself  contains  fea- 
tures typically  found  in  text  adventures. 
In  addition  to  its  excellent  parser.  Am- 
nesia allows  multiple  saves,  printouts, 
and  a  scoring  system  that  rewards  ac- 
complishments beyond  simply  solving 
a  piece  of  the  puzzle. 

The  pow^erful  combination  of 
Thomas  Disch's  fine  prose  and  EA's 
program  design  talent  makes  Amnesia  a 
text  adventure  well  worth  experiencing. 

Amnesia 

Electronic  Arts 

1820  Gateway  Dr. 

San  Mateo,  CA  94404 

$44.95  Apple  11,  IBM  PC  and 

compatible  versiojis 

$39.95  Commodore  64  version 


Starglider 

Andy  Eddy 

Requirements:  Commodore  64,  Amiga, 
Atari  ST,  Apple  II,  and  IBM  PC  and 
compatibles.  Disk  drive  required.  Mouse 
optional,  but  recommended  on  systems 
where  it  is  available;  joystick  optional,  but 
recommended  on  all  others.  Color  display 
also  optional,  but  recommended.  Atari  ST 
and  Commodore  64  versions  reviewed. 


Every  once  in  a  while,  a  game  comes 
along  that  tickles  and  teases  your 
senses.  Remember  the  exhilaration  you 
experienced  the  first  time  you  played 
Space  Invaders  or  Asteroids — the  panic 
that  overcame  you  as  you  got  used  to 
the  controls,  the  racing  heartbeat  that 
seemed  to  match  the  pounding  pulse  of 
the  sound  effects,  the  adrenaline  rush 
with  every  laser  blast  for  or  against  you. 
Over  the  years  there  have  been 
some  computer  contests  that  touch  you 
like  this.  One  such  product  is  Starglider 
by  Rainbird  Software  (marketed  in  the 
U.S.  by  Firebird  Licensees).  A  space 
sortie  in  vector  graphics  that  can  be 
likened  to  an  aerial  Battlezone,  Starglider 
has  a  mix  of  bright  colors,  rapid  move- 
ment, and  strategic  excitement  that  will 
bring  you  back  again  and  again. 

Find  Out  For  Yourself 

One  of  the  most  enticing  points  of  the 
game  is  the  inherent  mystery  that  its 
creator  has  engineered.  Much  like  a 
suspense  novel,  Starglidefs  charms 
aren't  spelled  out  at  the  beginning  for 
you.  Given  very  little  in  the  way  of 
instruction  beyond  the  most  cursory 
navigational  direction,  your  piloting 
skill  is  increased  only  through  prac- 
tice— during  which  time  you  will  face 
many  frustrating  defeats — and  careful 
perusing  of  the  accompanying  novella 
that  details,  in  story  form,  the  reason 
you  are  battling  Herman  Krudd  and  his 
troops.  If  your  bent  is  to  plunge  into  a 
game  without  reading  through  the 
manual,  you'll  find  yourself  in  deep 
trouble  time  and  time  again. 

Once  youVe  acquired  the  knowl- 
edge to  stay  alive  and  keep  your  craft 
aloft  (refueling  your  ship,  replenishing 
your  missiles,  lasers,  shields,  and  so 
on),  and  you've  learned  how  to  track  all 
of  the  various  indicators  that  alert  you 
to  your  ship's  condition,  position,  and 
endangerment,  all  you  have  to  do  is 
dispatch  the  many  enemies  that  threat- 
en you.  Oh,  is  that  all? 

Most  of  these  adversaries  can  be 
blown  away  with  your  shipboard  la- 
sers, though  it  takes  quite  a  few  shots 
for  them  to  meet  their  demise.  Others 
are  impervious  to  your  blasters  and 
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The  Atari  ST  version  of  Starglider  from 
Firebird, 

must  be  taken  out  with  a  missile — and 
your  ship  can  hold  only  two  at  afiy 
given  time.  If  this  gives  you  the  impres- 
sion that  your  work  is  cut  out  for  you, 
you're  right. 

Importantly,  it  must  be  pointed  out 
that  the  discouragement  level  is  not 
enough  for  you  to  shelve  the  game. 
Waving  a  galactic  carrot  in  your  wind- 
shield, Starglider  teases  you  into  the 
just-one-more-try  mode.  Most  times, 
you  find  yourself  getting  a  few  more 
points  on  the  scoreboard  than  the  last 
time,  maybe  reaching  a  higher  level 
than  before.  But  with  each  level  come 
new  challenges  that  must  be  overcome. 
And  on  and  on.,.. 

Jeremy  "Jez"  San  of  Argonaut  Soft- 
ware (Jez  San  of  Argonaut,  Jason  and  the 
Argonauts — get  the  connection?),  who 
originated  Starglider  and  programmed 
the  68000  versions,  is  a  talented  individ- 
ual who  has  constructed  a  visually 
smooth  concoction  that's  so  realistic  in 
its  feel  that  you'll  duck  and  squirm  in 
your  seat  in  an  attempt  to  guide  your 
careening  jet  with  body  English. 

A  Loss  In  Translation? 

Starglider  was  obviously  designed  on  a 
16-bit  machine  and  converted  to  the  8- 
bit  counterparts,  and  it  suffers  a  bit  in 
the  transition.  For  example,  the  game  is 
very  well  suited  to  mouse  use,  as  I 
discovered  in  the  ST  version,  for  con- 
trolling altitude,  speed,  steering,  and 
laser  triggering. 

But,  in  the  Commodore  rendering, 
the  joystick  seems  to  come  up  a  little 
short  in  giving  you  carefree  handling  of 
the  ship,  though  some  latitude  is  pro- 
vided by  having  two  different  joystick 
modes.  Here,  the  keyboard  assists  on 
certain  functions;  in  fact,  all  versions  of 
the  game  can  be  played  entirely  from 
the  keyboard,  and  the  ability  to  rede- 
fine keys  lets  the  player  make  a  person- 
al layout  for  game  control. 

Graphics  differences  are  more 
drastically  exposed.  On  the  ST,  a  radar 
screen  at  the  bottom  of  your  dashboard 
shows  all  objects  within  a  certain  pe- 
rimeter with  each  item's  "blip"  a  dis- 
tinct color.  On  the  64,  it's  impossible  to 


distinguish  one  blip  from  the  next, 
which  puts  you  at  a  marked  disadvan- 
tage when  you're  on  the  prowl  for  a 
docking  silo  or  energy  tower  at  critical 
moments.  Other  than  that  difference 
and  a  few  variations  in  sound  and  visu- 
al effects  between  the  two,  the  game 
play  is  very  similar,  and  the  differences 
only  limit  its  spectacularity  on  the 
Commodore.  I  must  say,  the  digitized 
voice  status  reports  during  play  and  the 
rockin'  intermission  music  with  vocals 
on  the  ST  rendering  were  real  shocks. 
About  the  only  across-the-board 
complaint  I  had  was  tolerable,  to  say  the 
least.  At  the  end  of  each  foray,  a  high 
score  table  is  displayed  where  you  may 
insert  your  name  among  the  top  achiev- 
ers— standard  fare  for  most  games  of 
this  ilk,  and,  above  all,  making  for  some 
heated  competition  between  contes- 
tants. The  problem  is  that  the  list  lasts 
only  the  length  of  that  immediate  ses- 
sion; no  scores  are  saved  to  disk  for 
permanent  recall.  While  San  told  me 
that  this  was  to  prevent  the  possibility  of 
overwriting  vital  program  data,  in  the 
past  it  has  been  a  feature  on  many 
games  with  very  little,  if  any,  detriment. 

To  The  Future 

So  far,  Rainbird  has  brought  The  Pawn 
and  Starglider  to  the  Americas  from 
overseas — and  these  are  two  of  the 
most  critically  acclaimed  programs  in 
recent  memory.  If  they  keep  this  streak 
going,  they  can  be  counted  on  to  be- 
come one  of  the  major  suppliers  of 
quality  game  ware. 

Starglider 

Firebird  Licensees 

P.O.  Box  49 

Ramsey,  N}  07446 

$39.95  Commodore  64  version 

$44,95  all  other  versions 


Robot  Rascals 

Karen  G.  McCullough 

Requirements:  Apple  U  series,  Commo- 
dore 64. 


Robot  Rascals  is  a  hybrid;  it's  a  cross 
between  a  card  game  and  a  computer 
adventure — Go  Fish  meets  the  elec- 
tronic scavenger  hunt.  In  games,  as  in 
plants  and  animals,  cross-fertilization 
has  the  potential  to  produce  hopeless 
disasters  as  well  as  unusually  strong, 
effective  offspring.  Robot  Rascals  is 
among  the  successes. 

Each  player  (up  to  four)  is  dealt 
four  item  cards;  then  each  selects  a 
robot  from  the  ten  available  onscreen. 
During  a  turn  the  player  directs  the 
robot  on  a  scavenger  hunt,  looking  for 
the  items  that  match  the  cards  in  his  or 
her  hand.  The  player  who  gets  to  home 
first  with  items  to  match  all  the  cards  in 
his  or  her  hand  wins. 

Sounds  simple,  right?  You  bet.  Ex- 
cept for  a  few  complications,  like  the 
luck  cards  you  draw  before  each  turn. 
These  can  direct  you  to  take  a  card,  steal 
a  card,  force  a  swap  among  other  play- 
ers, and  so  on,  all  of  which  can  wreak 
havoc  with  your  (or  your  opponent's) 
hand.  The  item  deck  contains  a  few 
surprises  also:  wild  cards,  a  killer  card, 
and  a  cosmic  cheat,  though  these  are 
used  only  in  more  advanced  games. 
Then  there's  the  problem  of  thieving 
robots,  and,  just  to  keep  things  from 
getting  boring,  the  computer  will  occa- 
sionally change  the  rules. 

If  this  sounds  like  overkill,  take 
heart:  The  game  can  be  played  on  sever- 
al levels.  Not  all  the  complications  apply 
at  the  lower  echelons.  To  start,  you  can 
play  a  super-beginner  game,  a  simple 
race  to  find  the  four  items  in  your  hand 
and  beat  your  opponent{s)  home.  It's  a 
good  introduction,  but  only  three-  and 
four-year-olds  won't  be  quickly  bored 
and  ready  to  move  onto  higher  levels. 
The  advanced  game  is  a  no-holds- 
barred  free-for-all,  with  more  complica- 
tions than  a  jet  fighter's  controls. 

This  is  a  well-designed,  well- 
executed  game  program.  The  screen 
windows  give  all  the  status  information 
you  need,  and  they  show  what  your 
robot  is  up  to.  joystick  control  is  tight 
and  precise,  a  real  pleasure.  There's 
plenty  of  variety  in  the  terrain  you 
search,  and  enough  travel  and  move- 
ment options:  Your  robot  can  walk  or 
teleport  to  get  around,  drop  an  item,  or 
erect  defensive  shields. 

But  the  real  joy  of  the  game  is  the 
robots  themselves.  There  are  ten  to 
choose  from,  and  each  is  distinctive;  in 
fact,  it's  no  exaggeration  to  say  they 
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The  Commodore  64  version  of  Robot 
Rascals  from  Electronic  Arts. 

have  individual  personalities.  The  ani- 
mation of  these  little  technological  mar- 
vels is  subtle  and  clever.  Each  robot 
moves  differently;  some  grin  while  they 
walk,  Belbot  pounds  his  chest  in  delight 
when  he  finds  an  item;  Birt  jumps  for 
joy.  Sphero  flops  along  lazily  when  he 
moves,  but  if  you  take  too  long  to  give 
him  directions,  he'll  stamp  his  ''foot" 
impatiently. 

The  whole  family,  including  the 
three-year-olds,  can  play  Robot  Rascals 
since  a  handicapping  feature  lets  play- 
ers of  differing  ability  compete  against 
each  other.  If  the  game  has  a  flaw,  it's 
that  it's — pardon  the  pun — almost  ter- 
minally cute.  But  then,  so  is  Teddy  Rux- 
pin,  and  we  know  how^  many  of  those 
have  sold. 

Robot  Rascals 
Llectronic  Arts 
IS20  Gateway  Dn 
San  Mateo,  CA  94404 
$39,95  Commodore  64  version 
$44.95  Apple  II  version 


Back  issues  of  COMPUTEL 

COMPUTErs  Gazette,  or 

any  magazine  disks  can 

be  ordered  by  calling 

800-346-6767 
(in  NY  212^887-8525), 
Some  issues  may  no 
ionger  be  avaiiobie. 


COMPUTE! 

TOLL  FREE 

Subscription 

Order  Line 

1-800-247-5470 

InIA  1  •800-532- 127  2 


Jet 

Michael  B.  Williams 

Requirements:  Apple  U  series  with  64K 
minimum,  Commodore  64,  or  IBM  PC /PCjr 
and  compatibles  with  128K  mifumum  and 
color  graphics  adapter.  Joystick  optional. 
Apple  version  reviewed. 

It's  the  realtime,  three-dimensional  dis- 
play that  best  exemplifies  this  Sub- 
LOGIC  program.  Everything — ^from 
planes,  missiles,  and  mountains,  to  the 
runway  and  control  tower — is  shown 
in  perfect  perspective  and  color.  If  you 
were  to  fire  a  missile  at  a  plane  passing 
in  front  of  you,  you  would  see  not  only 
the  missile  eject  from  your  jet,  but  also, 
in  perspective,  the  unwary  plane  ap- 
proach from  the  side,  be  hit  by  the 
missile,  and  break  into  pieces  as  it  falls 
toward  the  ground. 

Jet  has  several  display  enhance- 
ments to  help  you  maneuver  the  air- 
craft. As  if  using  a  telescope,  you  can 
zoom  in  to  see  objects  in  greater  detail 
and  zoom  out  to  expand  your  field  of 
vision.  The  attitude  (pitch)  indicator, 
which  can  be  superimposed  over  the 
display,  rotates,  rises,  and  falls  to  reflect 
your  orientation  to  the  horizon.  It,  too, 
is  seen  in  perspective,  with  its  ten-de- 
gree graduations  becoming  smaller  to- 
wards the  center  of  vision.  To  help  you 
in  battle,  you  can  summon  a  color- 
coded  radar  display  that  shows  the  lo- 
cation of  enemy  planes  and  missiles 
and  of  your  home  base — all  with  re- 
spect to  your  aircraft.  Jet\an  also  sup- 
ply a  range  indicator  that  changes  color 
as  you  close  in  on  a  target. 

Jet's  instrument  panel  is  sparse 
compared  with  those  of  other  flight 
simulators.  It  is  this  deceptively  simple 
display  that  allows  you  to  ignore  many 
of  the  technical  aspects  of  flying  and  to 
concentrate  on  the  flying  experience  it- 
self. At  the  same  time,  this  makes  Jet 
noticeably  less  realistic  than  SubLO- 
GIC's  Flight  Stjnulator  IL 

Flying  By  Remote  Control 

In  addition  to  the  normal  cockpit  dis- 
play, there  is  a  unique  feature  which 
allows  you  to  pilot  the  plane  from  the 
control  tower.  In  essence,  you  are  flying 
the  plane  by  remote  control.  Your  field 
of  vision  is  fixed  toward  the  aircraft, 
and  you  can  see  the  plane  as  it  is  taking 
off  and  landing.  Since  the  only  display 
feature  that  is  accessible  in  this  mode  is 
zoom,  you  will  find  it  difficult  to  fly  the 
jet  this  way.  You  can  easily  toggle  back 
to  the  cockpit  display  at  any  time. 
There,  in  addition  to  the  forward  view 
from  the   cockpit,   you   can   also  see 


above  and  to  the  left,  right,  and  rear  of 

the  plane. 

Jet  does  have  a  few  problems 
which  surface  because  of  the  speed  and 
graphics  limitations  of  the  Apple  II: 
Sound  effects  are  sparse.  The  program 
is  painfully  slow  at  updating  the  dis- 
play, which  can  turn  a  smooth  flight 
into  a  spasmodic  one.  The  program  is 
slowest  in  its  combat  mode;  screen  up- 
dates occur  at  about  one  second  inter- 
vals. Most  importantly,  you  must  use  a 
color  monitor  with  the  Apple  version  of 
Jet.  On  a  monochrome  monitor,  it  is 
nearly  impossible  to  distinguish  be- 
tween the  sky,  horizon,  and  markings 
on  the  ground;  attempting  to  land  the 
jet  becomes  a  daredevil  event  at  best. 
With  a  color  monitor,  however,  each 
element  has  a  unique  color  to  help  dis- 
tinguish it. 

A  few  of  Jet's  problems  are  due  to 
its  implementation.  The  aircraft's  speed 
is  given  as  a  Mach  number  (relative  to 
the  speed  of  sound)  on  a  graduated 
scale  which  is  only  marked  in  incre- 
ments of  Mach  0.5.  The  altitude  is  also 
represented  by  a  vertical  graduated 
scale,  but  is  equally  difficult  to  read 
because  it  is  marked  with  increasing 
intervals  instead  of  constant  ones.  Digi- 
tal readouts  for  both  the  speed  and  the 
altitude  would  help  tremendously. 
When  you  are  fighting  MiGs,  you  won't 
have  time  to  guess  your  actual  altitude 
and  speed. 

To  add  to  the  feeling  that  you  are 
really  flying.  Jet  includes  real  hazards 
such  as  blackout  and  red  out,  which 
reflect  the  human  body's  limited  toler- 
ance to  high  acceleration.  In  the  event 
of  imminent  destruction,  you  can  push 
the  eject  button  and  float  safely  back  to 
earth  by  parachute. 

Jet  comes  with  a  quick  reference 
card  summarizing  the  commands  avail- 
able. It  is  also  compatible  with  the  same 
scenery  disks  used  by  Flight  Simulator  U 
and  Microsoft's  Flight  Simulator.  Sub- 
LOGIC  offers  scenery  disks  for  Japan 
and  the  San  Francisco  area. 

If  you  have  a  color  monitor,  you'll 
definitely  want  to  consider  adding  the 
state-of-the-art  Jet  to  your  program  li- 
brary. Its  lack  of  realism  may  turn  off 
flying  aficionados,  but  its  ease  of  flight 
and  its  truly  remarkable  graphics  are 
sure  to  please  weekend  pilots  who  want 
to  take  their  F-16  for  a  spin  around  the 
Golden  Gate  Bridge. 

Jet 

SublOGIC 

713  Edgebrook  Dr. 

Champaign,  IL  61820 

$39.95  Apple  U  series  and  Commodore 

64  versions 

$49.95  IBM  PC/PCjr  (and  compatibles) 

version  /» 
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Computers  and  Society 


David  D  Thornburg.  Associote  Editor 


A  Look  At  An  Era 


When  there's  talk  about  the  success 
stories  of  the  personal  computer  in- 
dustry, most  people  think  of  Silicon 
Valley  with  all  its  ups  and  downs. 
Names  like  lobs,  Wozniak,  Peddle, 
and  others  too  numerous  to  men- 
tion, are  bandied  about  as  though 
they  were  the  only  people  involved 
with  the  success  of  this  industry. 

While  no  one  would  want  to 
diminish  the  contributions  of  these 
people,  the  fact  remains  that  there 
is  another  part  of  the  personal  com- 
puter industry  located  far  from  Sili- 
con Valley  with  success  stories  of  its 
own.  As  valuable  as  your  personal 
computer  might  be,  you  probably 
wouldn't  know  more  than  half  the 
things  you  can  do  with  your  com- 
puter if  it  weren't  for  magazines 
like  COMPUTE!. 

Now  this  piece  is  not  a  pitch  to 
get  you  to  read  COMPUTE!— after 
all,  you  are  doing  that  already.  The 
reason  for  spending  time  on  this 
topic  this  month  is  that,  with  the 
departure  of  Robert  Lock  from  the 
day-to-day  operations  of  this  maga- 
zine, COMPUTE!  has  entered  a  new 
era.  Accordingly,  I  thought  I  might 
share  some  of  my  recollections  on 
the  growth  of  this  magazine  since  1 
had  an  article  in  its  very  first  issue, 
and  have  had  at  least  one  article  in 
nearly  every  issue  since  that  one. 

Retrospectives  of  this  sort  are 
usually  to  be  found  in  the  last  issue 
of  a  magazine  just  as  it  goes  belly 
up.  As  you  know,  many  computing 
magazines  have  fallen  prey  to  the 
vagaries  of  the  computer  market. 
Some  of  the  older  magazines  (like 
Recreational  Computing)  were  ac- 
quired by  other  magazines  (like 
COMPUTE!),  and  still  others  just 
quietly  went  out  of  business  (like 
Creative  Couiputing), 

COMPUTE!  has  had  its  ups  and 
downs — just  as  has  the  industry — 
but  unlike  most  of  its  counterparts, 
COMPUTE!  has  emerged  stronger 
than  ever  for  one  simple  reason — 


its  readers. 

A  dedicated  base  of  readers  is 
essential  to  the  survival  of  a  maga- 
zine, and  COMPUTE!  was  careful 
from  the  start  to  insure  that  it  had  a 
solid  base  of  editorial  writers  who 
helped  maintain  the  consistency 
that  made  this  magazine  what  it  is. 

In  the  fall  of  1979  the  first  issue 
of  COMPUTE.  The  Joumal  of  Progres- 
sive Computing  hit  the  stands.  It  was 
104  pages  long  and  contained  19 
articles,  10  reviews,  and  a  full  spec- 
trum of  advertisers  from  Commo- 
dore to  small  garage  operations.  My 
company,  Innovision,  placed  its  first 
ad  in  this  premier  issue.  While  my 
company  hasn't  grown  much  in  the 
intervening  years,  it  is  still  around. 

While  the  major  focus  of  COM- 
PUTE! was  on  the  Commodore  PET, 
it  also  devoted  space  to  other  6502- 
based  computers  like  the  Ohio  Sci- 
entific Challenger  (remember  that 
one?)  and  the  single-board  comput- 
ers like  the  KIM-1  and  AIM-65 
(may  they  rest  in  peace). 

While  COMPUTE!  started  as  a 
quarterly,  Robert  decided  to  make  it 
bimonthly  starting  with  the  Januar}^ 
February  1980  issue.  By  this  time 
the  magazine  was  publishing  arti- 
cles about  the  Apple  II  and  Atari 
800,  as  well  as  continuing  its  strong 
PET  coverage. 

By  the  third  issue,  this  column 
was  started.  This  means  that  COM- 
PUTE! has  had  the  longest-running 
column  on  the  social  impact  of 
computers  in  the  history  of  person- 
al computer  magazines. 

Within  a  short  time  COMPUTE! 
became  a  fancier  magazine,  sport- 
ing a  full-color  cover  and  monthly 
publication.  Our  magazine  had 
come  of  age. 

ABC 

I  was  concerned  when  ABC  ac- 
quired the  magazine.  I  was  afraid 
that  COMPUTE!  was  going  to  lose 
some  of  its  personal  touch.  But,  un- 


der Robert's  careful  guidance,  this 
never  happened.  Even  though  I  am 
on  the  West  Coast  and  have  never 
visited  COMPUTE!'s  offices,  I  could 
tell  from  my  phone  conversations 
that  Robert  was  hiring  exactly  the 
right  kind  of  people  to  let  the  publi- 
cation grow  and  thrive. 

From  the  humble  beginnings  of 
COMPUTE!,  Robert  built  a  multifac- 
eted  publishing  venture  that  includ- 
ed several  magazines  and  a  full 
catalog  of  books.  Furthermore,  he 
did  this  during  a  time  when  the 
computer  industry  was  on  a  roller- 
coaster  ride  of  immense  proportions. 

The  Lesson? 

When  the  computer  magazines 
started  to  drop  like  flies,  the  ''smart 
money"  people  said  the  the  survi- 
vors would  be  the  highly  focused 
one-machine  magazines.  Maga- 
zines with  a  general  focus  were  go- 
ing to  be  victims  simply  because 
advertisers  would  not  be  able  to 
target  their  ads  as  carefully. 

Because  COMPUTE!  also  pub- 
lished machine-specific  magazines 
(like  GAZETTE  for  Commodore 
owners),  it  could  offer  advertisers 
what  they  needed — and  this  proba- 
bly helped  maintain  the  magazine's 
success. 

Can  a  general  personal  com- 
puting magazine  survive?  COM- 
PUTE! has  shown  that  it  can  not 
only  survive,  but  that  it  can,  with 
your  support,  thrive  in  both  good 
times  and  bad. 

The  main  reason,  as  I  said 
before,  is  because  of  you — the  read- 
ers of  this  magazine. 

Another  reason — one  I  think  is 
equally  as  important — is  because 
this  magazine  was  built  with  the 
leadership  of  one  of  the  finest  men  I 
have  met  in  the  industry. 

Thank  you,  Robert,  for  all  you 
have  done  for  all  of  us.  Our  entire 
industry  is  watching  to  see  what 
you  will  be  doing  next.  @ 
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Microscope 


Sheldon  Leemon 


Sometimes  the  impact  of  a  rumor  is 
more  significant  than  whether  or 
not  it  proves,  in  the  end,  to  be  true. 
A  good  example  is  the  new  genera- 
tion of  personal  computers  that 
IBM  may  or  may  not  have  an- 
nounced by  the  time  that  you  read 
this.  For  months,  we've  been  hear- 
ing about  as  many  as  three  different 
PCs  that  IBM  may  come  up  with, 
with  code  names  like  ''Renegade" 
and  "CloneKiller/'  The  most  often 
discussed  is  a  low-end  machine  for 
the  home  and  educational  market. 
The  machine  described  doesn't 
have  expansion  slots — at  least  not 
any  compatible  with  current  mod- 
els— although  it's  said  to  have 
some  networking  capabilities  (vital 
in  an  education  setting).  It  wall  like- 
ly use  the  80286  processor  running 
at  a  slow  six  megahertz,  and  have  a 
built-in  graphics  adapter,  but  ru- 
mors here  range  from  a  normal 
EGA-type  adapter  to  one  with  fab- 
ulous graphics  capabilities,  such  as 
640  X  480  resolution  with  up  to 
256  colors  onscreen  at  once,  and 
windowing  capabilities  in  ROM, 
Likewise,  sound  may  be  anything 
from  an  internal  beeper  to  a  fuU- 
blow^n  synthesizer.  All  rumors 
agree  on  a  BVi-inch  disk  drive  and  a 
full  keyboard. 

The  operating  system  is  anoth- 
er area  of  dispute.  Most  sources 
agree  that  it  will  use  a  new  DOS, 
but  reports  on  its  features  range 
from  a  slight  change  to  support 
networking,  to  a  version  that  in- 
cludes Microsoft  Windows  or  Top- 
view,  to  a  hybrid  MS-DOS  with  a 
proprietary  hardware/software 
scheme  to  shut  out  would-be 
doners,  to  a  completely  proprietary 
system.  In  all  of  the  rumors,  we 
hear  again  and  again  of  the  possi- 
bility of  a  completely  new  hard- 
w^are  bus  that  will  not  accept  the 
thousands  of  third-party  add-on 
products  for  the  current  PC,  and  of 
a  completely  new  operating  system 


that  will  be  upwardly  compatible 
with  the  current  one,  but  that  can't 
be  copied.  In  short,  the  anticipated 
PC  wouldn't  be  PC  compatible,  and 
couldn't  be  cloned. 

At  first,  we  heard  that  the  ma- 
chine  would  be  announced  during 
the  Super  Bowd,  a  la  Apple.  When 
that  didn't  come  to  pass,  stories 
began  to  center  around  a  big  meet- 
ing of  IBM  dealers  in  March,  and  a 
possible  April  announcement.  But 
whether  or  not  any  of  the  rumors 
turn  out  to  be  true,  their  existence  is 
being  felt  in  the  PC  marketplace. 
Corporate  buyers  are  holding  off, 
waiting  to  see  w^hat  develops  before 
they  commit  to  new  purchases.  The 
mood  is  reminiscent  of  that  which 
prevailed  before  the  announcement 
of  the  PCjr,  when  a  "PC  11"  was 
rumored  to  be  imminent. 

But  rather  than  being  the  prod- 
uct of  a  conspiracy  on  IBM's  part,  as 
some  have  suggested,  it  may  well 
be  that  these  rumors  are  a  reflection 
of  a  growing  perception  of  the  seri- 
ousness of  IBM's  position.  Having 
spawned  the  enormous  PC  market, 
IBM  has  had  to  stand  idly  by  and 
watch  its  influence  in  that  market 
diminish.  Whether  IBM  will  take 
bold  action,  and  whether  that  ac- 
tion will  be  enough  to  stem  the  tide, 
are  questions  that  will  keep  every- 
body in  the  industry  watching. 

Although  the  new  high-end  Macin- 
tosh models  discussed  in  this  is- 
sue's "Editor's  Notes"  are  priced 
beyond  the  means  of  the  average 
consumer,  they're  bound  to  have 
an  effect  on  the  home  computer 
market,  just  as  the  original  Mac  did. 
For  one  thing,  their  introduction 
will  send  down  the  price  of  the  Mac 
Plus  and  5 1 2K  Mac.  The  street  price 
of  the  latter  may  break  the  $1,000 
barrier  for  the  first  time,  putting  it 
head  to  head  with  the  Atari  ST,  the 
Amiga,  and  PC  clones. 

The  small  screen  and  closed 


architecture  of  the  old  Mac  are 
much  less  of  a  problem  with  the 
home  market  than  with  the  busi- 
ness crowd,  and  users  may  be  more 
apt  to  put  up  with  these  limitations 
for  the  time  being,  knowing  that 
upgrades  are  available.  Since  soft- 
ware and  the  time  spent  creating 
data  files  usually  end  up  as  the 
biggest  part  of  a  computer  invest- 
ment, it's  quite  important  that  the 
user  know^  that  when  he  buys  new 
hardware,  he'll  be  able  to  take  his 
software  with  him.  Atari  and  Com- 
modore have  stated  their  intentions 
to  manufacture  68020  machines, 
but  so  far,  only  Apple  has  assured  a 
compatible  upgrade  path. 

Although  the  Atari  PC  clones 
caused  quite  a  sensation  at  CES, 
there  have  been  recent  reports  that 
they  may  not  appear  quite  as  quick- 
ly as  expected.  Though  Atari 
claimed  that  the  machines  w^ould 
be  ready  by  March,  it  may  be  as  late 
as  August  w^hen  they  are  actually 
sold.  For  one  thing,  they  have  yet  to 
undergo  the  sometimes-lengthy 
FCC  approval.  For  another.  Atari 
has  yet  to  sign  an  agreement  with 
Digital  Research  allowing  it  to  dis- 
tribute the  GEM  operating  system 
with  the  machine.  Though  one  dis- 
tributor w^as  quoted  as  saying  he 
had  the  machines  in  the  ware- 
house, others  have  doubted  that 
the  models  shown  at  CES  were  ac- 
tually the  finished  product. 

In  the  meantime.  Atari's  an- 
nouncements may  end  up  hurting 
ST  sales,  with  buyers  waiting  for  the 
new  PC  clones  or  Mega  ST  ma- 
chines. And  though  Atari  cut  the 
price  of  the  current  STs  at  the  time 
the  new^  machines  were  announced, 
dealers  w^hose  stock  was  purchased 
at  the  old  price  may  be  reluctant  to 
sell  them  at  as  large  a  discount  as 
some  consumers  will  expect.         (§ 
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Telecomputing  Today 


Arlan  R.  Leviton 


Twelve  Special  Bulletin  Boards 


While  most  continue  to  be  nnicro- 
computer  related,  a  growing  nun\- 
ber  of  electronic  bulletin  board 
systems  (BBSs)  have  veered  off  the 
beaten  track.  BBSs  devoted  to  law, 
medicine,  genealogy,  and  real  estate 
are  common  enough  to  elicit  little 
more  than  a  yawn  from  seasoned 
telecomputerists.  Here  are  a  dozen 
free  boards  that  will  spice  up  even 
the  most  jaded  palate.  Bon  appetit! 
Note:  All  numbers  were  veri- 
fied as  of  February  20,  1987.  Please 
observe  board  rules  and  common 
courtesy.  Remember,  you  are  a 
guest  in  the  system  operator's 
(SYSOP's)  "house/' 

Aviation  Connection 
(214)  245-5633 
Dallas,  TX 

You  don't  need  a  2400-bps  modem 
to  fly  around  here.  Whether  you're 
certified  for  flying  on  instruments 
or  just  an  aeronautics  buff,  the  Avi- 
ation Connection  is  dedicated  to 
your  wild  blue  yonder. 

Bullet  'N  Board 
(703)  971-4491 
Silver  Spring,  VA 

SYSOP  Tanya  Metaksa's  aim  was 
to  dedicate  this  board  to  the  Second 
Amendment  and  firearms.  News 
on  the  latest  legislative  happenings 
and  weaponry.  Gun-show  sched- 
ules and  National  Rifle  Association 
information  abound.  While  this 
board  is  free,  you  must  go  through 
a  registration  process  to  gain  access. 

The  Casino  BBS 
(609)  652-6030 
Atlantic  City,  NJ 

Feel  lucky?  You  won't  lose  your 
shirt  playing  in  this  casino.  SYSOP 
Dave  covers  the  Atlantic  City  casi- 
no beat,  including  nightlife  and  en- 
tertainment guides.  Ask  regulars 
where  the  best  slot  payoffs  are  and 
how  much  it  takes  to  build  a  hotel 
on  Boardwalk  these  days. 

Collectors  Network 
(213)  204-0646 
Los  Angeles,  CA 


Just  how  much  is  that  Charlie 
"Sunday  Punch"  Maxwell  card 
worth?  SYSOP  Harry  Rosenfeld 
knows.  Info  on  coins,  stamps,  base- 
ball cards,  and  just  about  anything 
else  that's  collectible.  Also  includes 
excellent  BBS  lists. 

Crime  Prevention  BBS 
(214)  578-1311 
Piano,  TX 

Who  broke  Emma's  window  last 
Thursday  night?  Follow  the  saga  of 
crime  in  Piano,  Texas.  Tips  on  spot- 
ting con  artists,  prevention  of  crimi- 
nal mischief,  and  personal 
protection — ^all  from  SYSOP  Cap- 
tain Lyndon  Payne  and  the  rest  of 
Piano's  finest.  Be  sure  to  check  out 
the  "Crime  of  the  Week," 

Cryptologjc  Research 

(703)  237-4322 

McLean,  WV 

Hours:  5:30  p.m.-8:00  a.m.  EST  M-F 

Do  you  suspect  that  the  scribblings 
of  your  three-year  old  are  really 
cleverly  coded  messages  for  special 
agents?  SYSOP  Robert  Juneman 
operates  this  board  as  a  service  to 
the  International  Association  for 
Cryptologic  Research  (lACR)  and 
anyone  else  interested  in  Cryptog- 
raphy and  Computer  Security. 

Electronic  Call  Board 
(718)  499-1633 
Brooklyn,  NY 

Dedicated  to  the  performing  arts, 
SYSOP  Bobby  Ballard  keeps  aspir- 
ing actors  apprised  of  the  latest 
casting  notices.  Special-interest  sec- 
tions covering  theater,  film,  video, 
music,  and  art.  If  the  Muse  moves 
you,  participate  in  electronic  role 
playing.  The  Call  Board  also  in- 
cludes schedules  of  stage  shows 
playing  around  the  country. 

The  Guideboard 

(415)  864-3858 
San  Francisco,  CA 

Get  a  real  hacker's  view  of  one  of 
America's  most  popular  vacation 
spots.  The  Guideboard  is  frequent- 
ed by  cabbies  who  keep  each  other 


posted  on  what's  going  on  in  the 
city  by  the  Bay.  Enough  colorful 
personalities  to  populate  a  season's 
worth  of  "Taxi"  TV  reruns. 

MIDI  World  Network 
(213)  826-4288 
Los  Angeles,  CA 

SYSOPs  Moore,  Daystrom,  and 
Fitzpa trick  are  in  tune  with  the 
times.  An  excellent  BBS  devoted  to 
MIDI-related  computer  use.  Highly 
recommended  if  one  of  your  key- 
boards has  black  and  white  keys. 

Survival  Communication 
(707)  545-0746 
Napa  Valley,  CA 

Pack  the  freeze-dried  food,  hop  in 
the  jeep,  and  head  for  the  moun- 
tains. Don't  forget  your  modem- 
equipped  lap-top,  though;  there  are 
forums  on  survival,  self-sufficiency, 
and  emergency  preparedness.  SY- 
SOP Don  Kulha  hosts  discussion 
areas  on  medicine,  food,  alternative 
energy,  radio  communications, 
weapons-craft,  and  survival 
vehicles. 

Top  of  the  Rockies  BBS 
(303)  963-3688 
Roaring  Fork,  CO 

Is  warmer  weather  tempting  you  to 
hang  up  the  skis  and  poles  for  the 
season?  Let  SYSOP  Barry  Clements 
tempt  you  with  ski  information  for 
Aspen,  Snowmass,  Sunlight,  and 
the  rest  of  the  country.  If  you  get 
tired  of  discussing  equipment  and 
technique,  check  out  the  tasty  reci- 
pes and  nutrition  information. 

The  Train  Board 
(513)  398-0928 
Mason,  OH 

Does  the  thought  of  the  electric 
"chug"  of  an  ancient  Lionel  train 
set  running  in  your  living  room 
bring  tears  to  your  eyes?  Or  do  you 
prefer  using  radio-controlled  sub- 
marines in  the  local  duck  pond? 
SYSOP  Decker  Dogget  moderates 
information  on  train  collecting  and 
radio-control  hobbies.  @ 


May  1987     COMPUTil     61 


AmigaView 


Sheldon  Leemon 


Hardware  Add-Ons 


There  are  an  astor^ishing  number  of 
good  hardware  products  for  the 
Amiga  1000,  and  more  are  waiting 
in  the  wings.  The  following  sam- 
pling represents  products  that  are 
currently  available,  or  that  should 
be  by  the  time  this  column  appears, 
Tve  chosen  to  list  only  hard  disks, 
RAM  expansions,  and  clock  calen- 
dars, since  these  represent  the  cate- 
gories in  which  users  are  most 
interested. 

Hard  Disks 

Two  outstanding  products  in  the 
hard  disk  category  are  the  MAS-20 
from  Microbotics,  and  the  C  Ltd. 
drive,  both  of  which  provide  20 
megabytes  of  storage  and  a  SCSI 
port  for  a  list  price  of  about  $1,000. 
C  Ltd.  has  lately  added  a  full  line  of 
higher-capacity  drives,  ranging 
from  30  megabytes  for  $1,300  to 
350  megabytes  for  $7,000.  Xebec  is 
a  name  that's  new  to  the  Amiga 
community,  but  it's  very  familiar  in 
the  IBM  PC  world,  where  the  com- 
pany is  a  leading  maker  of  hard 
drives  and  controllers,  Just  out  is 
the  Xebec  9720H  20-Meg  SCSI 
hard  drive,  with  a  list  price  of 
$1,075.  I've  used  a  preliminary 
unit,  and  my  timings  indicate  that 
this  drive  loads  files  a  bit  faster  than 
the  C  Ltd.  and  Microbotics  drives. 
Two  new  drives  should  be 
available  for  sale  by  the  time  you 
read  this.  The  first  is  from  Supra 
Corporation,  which  has  an  estab- 
lished track  record  with  hard  drives 
for  the  Atari  ST  and  the  Macintosh. 
The  Supra  20-meg  hard  drive  lists 
for  $1,000,  and  offers  an  optional  1- 
meg-RAM  upgrade  board  that  fits 
into  the  drive  controller  card.  The 
second  is  the  PAL  Jr.  from  Byte  by 
Byte.  Having  gone  through  many 
design  changes,  the  final  version 
will  be  a  mini  version  of  the  PAL 
box,  an  expansion  box  that  fits  on 
top  of  the  Amiga.  Though  only  V-k 
inches  tall,  it  will  come  with  a  20- 


meg  hard  drive  and  a  meg  of  RAM, 
and  have  two  full-size  horizontal 
expansion  slots.  The  price  remains 
at  $1,500,  and  because  all  sales  will 
be  direct,  there  will  be  no  discounts 
from  list  price.  For  this  price  premi- 
um, Byte  by  Byte  hopes  to  offer 
much  higher  performance. 

RAM  Expansion 

RAM  expansion  units  for  the  Amiga 
have  really  proliferated  lately.  Prices 
keep  changing  so  quickly  that  it 
would  be  pointless  to  give  exact 
costs  here,  but  at  this  time,  one-meg 
boards  range  from  $300  to  $450, 
and  two-meg  boards  from  %575  to 
$850.  Many  of  these  are  in  the  form 
of  self-contained  modules  that  plug 
into  the  right  side  of  the  Amiga.  In 
this  category  there's  the  the  one- 
meg  aMEGA  from  C  Ltd.;  the 
Xpander  II  from  Pacific  Cypress,  a 
two-slot  box  that  comes  with  a  two- 
meg  card  in  one  slot;  and  my  own 
favorite,  the  Starboard  2  from  Mi- 
crobotics. The  Starboard  is  a  com- 
pact unit  which  holds  from  512K  to 
two  meg,  and  has  provisions  for  a 
multifunction  card  with  clock  calen- 
dar and  68881  math  coprocessor. 

The  Insider,  from  Michigan 
Software  Distributers,  is  a  new  one- 
meg  board  that  mounts  internally. 
It  plugs  into  the  68000  processor 
socket,  and  includes  a  clock  calen- 
dar. Another  internal  expansion  is 
the  Kickstart  Eliminator  and  RAM 
Expansion  Kit  from  Creative  Micro- 
systems. This  isn't  strictly  a  RAM 
expansion,  since  the  kit  provides 
the  Kickstart  1.2  code  on  EPROM 
chips.  Not  only  does  this  eliminate 
the  need  for  the  Kickstart  disk,  but 
it  also  frees  up  the  256K  of  write- 
protected  RAM  for  general  use.  A 
couple  of  caveats  apply.  Installation 
is  not  for  the  inexperienced,  and  it 
voids  your  Amiga  warranty.  With 
Kickstart  in  ROM,  you  can't  switch 
versions  without  changing  chips, 
which  means  you  can't  run  soft- 


ware that  only  works  with  1,1.  But 
Sidecar  or  hard  disk  users,  who  will 
want  to  use  1.2  exclusively,  won't 
find  anything  better  for  conven- 
ience and  extra  memory. 

ASDG  also  makes  memory  ex- 
pansion boards  that  fit  in  exparision 
boxes  like  the  PAL  Jr.,  and  its  own 
Mini-rack.  But  its  most  exciting 
product  may  well  be  the  Recover- 
able RAM  Disk,  a  shareware  pro- 
gram which  creates  a  RAM  drive 
that  survives  a  warm  reset  (CTRL- 
Amiga-Amiga),  It's  available  on 
most  of  the  information  services 
and  bulletin  boards. 

Clock  Calendars 

There's  a  clock-calendar  board 
available  for  almost  every  port  on 
the  the  Amiga,  Tic  froni  Byte  by 
Byte  and  MouseTime  from  Micro- 
botics connect  to  the  second  mouse 
port.  MouseTime  fits  next  to  memo- 
ry expansion  modules,  but  Tic 
doesn't,  necessitating  software  that 
switches  the  function  of  the  two 
mouse  ports.  Atime,  from  Akron 
Systems,  sits  on  the  printer  port, 
and  provides  a  pass-through  for  the 
printer.  The  most  innovative, 
though,  may  be  Time  Saver  from  C 
Ltd,,  which  connects  in  the  key- 
board line.  Not  only  does  it  update 
the  system  time  automatically  at 
power-up  time,  without  software, 
but  it  also  has  8K  of  battery-backed- 
up  RAM  for  keyboard  macros  and 
CLI  command  history,  @ 
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Train  for  the  Fastest  Growing  Job  Skill  in  America 


Only  NRI  teaches  you  to  service  all 
as  you  build  your  own  fully  IBM; 
compatible  microcomputer 


With  computers  firmly  established  in 
offices-and  more  and  more  new 
applications  being  developed  for  every 
facet  of  business— the  demand  for 
trained  computer  service  technicians 
surges  forward.  The  Department  of 
Labor  estimates  that  computer 
senice  jobs  will  actually  double  in  the 
next  ten  years— a  faster  growth  rate 
than  for  any  other  occupation. 

Total  systems  trabmg 

No  computer  stands  alone. . . 
it's  part  of  a  total  system.  And 
if  you  want  to  learn  to  service  and 
repair  computers,  you  have  to  under- 
stand computer  systems.  Only  NRI 
includes  a  powerful  computer  system 
as  part  of  your  training,  centered 
around  the  new,  fully  IBM-compatible 
Sanyo  880  Series  computer. 

As  part  of  your  training,  you'U 
build  this  highly  rated,  16-bit  IBiM- 
compatible  computer  system.  You'll 
assemble  Sanyo's  "intelligent"  key- 
board, install  the  power  supply  and 
disk  drive  and  interface  the  high- 
resolution  monitor.  The  880  Computer 
has  two  operating  speeds:  Standard 
IBM  speed  of  4.77  MHz  and  a 
remarkable  turbo  speed  of  8  MHz. 
It's  confidence-building,  real-world 
experience  that  includes  training  in 
programming^  circuit  design  and 
peripheral  maintenance. 

No  experience  necessary— 
NRI  builds  it  in 

Even  if  you've  never  had  any  previous 
training  in  electronics,  you  can  succeed 
with  NRI  training.  You'll  start  with 
the  basics,  then  rapidly  build  on  them 
to  master  such  concepts  as  digital 
logic,  microprocessor  design,  and 
computer  memory.  You'll  build  and 
test  advanced  electronic  circuits  using 
the  exclusive  NRI  Discovery  Lab ', 
professional  digital  multimeter,  and 
logic  probe.  Like  your  computer, 
they're  all  yours  to  keep  as  part  of 
your  traimng.  You  even  get  some 


of  the  most  popular 
software,  including 
WordStar,  CalcStar, 
GW  Basic  and  MS 
DOS. 

Send  for  lOO'page 
free  catalog 

Send  the  post-paid 
reply  card  today  for 
NRi's  100-page,  full-color  catalog, 
with  all  the  facts  about  at-home 
computer  training.  Read  detailed 
descriptions  of  each  lesson,  each 
experiment  you  perform.  See  each 
piece  of  hands-on  equipment  you'O 
work  with  and  keep.  And  check 
out  NRI  training  in  other  high-tech 
fields  such  as  Robotics,  Data  Com- 
munications, TV/AudioA^ideo 
Servicing,  and  more. 

If  the  card  has  been  used,  rate  to 
NRI  Schools,  3939  Wisconsin  Ave., 
N.W.,  Washington,  D.C.  20016. 


NRI  ts  the  only  technical 
school  that  trains  you  as 

you  assemble  a  top-brand 
mtcrocomputer.  After 
building  your  own  logic 
probe,  you'll  assemble  the 
'Intelligent''  keyboard.  . . 


, .  .then  install 
the  computer 
power  supply, 
checking  all 
the  circuits 
and  connec- 
tions with 
NRI'S  Digital 
Multimeter. 
From  there, 
you'tl  move  on 
to  install  the 
disk  drive  and 
monitor. 


^ SCHOOLS 

McGraw-Hill  Continuing  Education  Center 
3939  Wisconsin  Avenue,  NW 
Washington,  DC  20016 
We'll  Give  You  Tomorrow. 

IBM  is  a  Registered  Trademark  of  International  Business 
Machine  Cwpor*tJon. 


The  Beginner's  Page 


C.  Regena 


Sound  And  Music  In  BASIC 


Programming  sound  and  music  on 
your  computer  can  be  both  fun  and 
rewarding.  It's  among  my  favorite 
things  to  do  on  the  computer.  I  wish 
I  could  just  give  you  a  BASIC  listing 
for  some  music  on  your  specific 
computer  this  month,  but  that's  not 
possible,  since  this  is  a  column  for 
all  computers,  and  music  com- 
mands in  BASIC  are  very  machine- 
specific.  However,  here  are  some 
general  ideas  you  can  use  when 
programming  sound  and  music. 

The  Most  Common 
Commands 

To  program  your  own  music  or 
sounds,  you'll  need  to  refer  to  your 
BASIC  programming  manual.  The 
most  common  key  BASIC  words  for 
sound  are  PLAY,  SOUND,  BEEP, 
and  WAVE.  Look  these  words  up  in 
your  index  or  list  of  BASIC  words  to 
see  if  they  are  available  on  your 
computer.  The  Commodore  64  uses 
POKE  commands,  so  refer  to  the 
chapter  on  sound  in  your  manual  as 
well  as  the  pages  in  the  appendices 
that  list  the  memory  locations  and 
values  for  sound,  volume,  and 
voice  programming. 

On  some  computers  you  may 
be  able  to  use  the  command  PRINT 
CHR$(7),  which  is  the  bell  or  beep 
character  for  a  short  tone. 

The  PLAY  command  usually 
uses  note  names  in  quotes  to  "play" 
musical  tones  ABCDEFG.  You  may 
also  specify  sharps  with  #  or  +  and 
flats  with  — .  To  specify  which  oc- 
tave for  the  note  you  ivant,  use  the 
letter  O  before  an  octave  number, 
such  as  03,  Other  options  include 
the  length,  L;  a  pause  (rest),  P;  a  dot 
for  dotted  notes;  and  tempo,  T,  The 
IBM  PLAY  statement  has  many 
more  options  which  are  listed  in  the 
manual.  A  sample  command  is 

30  PLAY  "03  CBABCDE'' 

After  you  get  used  to  the  gen- 
eral   PLAY    command,    try    using 


string  variables  to  play  a  longer 
tune  or  to  play  repetitious  phrases 
without  typing  a  lot  of  individual 
PLAY  statements.  For  example,  let 
A$  be  the  string  to  play  one  musical 
phrase.  Then  you  can  use  the  com- 
mand PLAY  "XA$;".  You  may  use 
numeric  variables  also.  For  ex- 
ample, if  you  have  a  variable  octave 
J,  use  the  command  PLAY  "O  =  J;". 
Consult  your  manual  for  the  use  of 
variables  and  to  determine  when 
the  semicolon  is  necessary. 

Different  computers  have  dif- 
ferent variations  of  the  SOUND 
command.  Here  are  some  examples: 

IBM:  SOUND  freijucticy,  duration,  volume, 

voice 
Atari:  SOUND  voice,  note,  tone,  loudness 
Atari  ST:  SOUND  voice,  volume,  note, 

octave,  duration 
Amiga:  SOUND  frequency,  duration, 

volume,  voice 
Commodore  128:  SOUND  voice,  frequency, 

duration 

Any  of  the  parameters  may  be 
numeric  variables,  but  you  do  need 
to  make  sure  the  variables  are  with- 
in the  proper  limits. 

For  the  Atari  and  Atari  ST  com- 
mands, the  notes  are  numbered. 
You  can  refer  to  charts  to  see  the 
numbers  that  correspond  to  each 
musical  note  and  tone  or  octave. 

Sound  Frequency 

Some  SOUND  commands  use  a/re- 
quertcy  parameter.  The  frequency  is 
the  cycles  per  second,  or  Hertz  (Hz), 
that  produce  a  particular  tone.  For 
example,  concert  A  is  440  cycles  per 
second.  Your  manual  should  have  a 
chart  comparing  note  names  to  fre- 
quencies. You  might  keep  in  mind 
that  a  note  one  octave  higher  is  dou- 
ble the  frequency.  For  example,  con- 
cert A  is  440H2,  and  the  A  note  one 
octave  higher  is  88OH2.  The  note  A 
one  octave  lower  is  220Hz. 

The  duration  parameter  is  a 
number  that  tells  how  long  to  play 
a  note.  On  the  IBM  and  Amiga,  the 
duration  is  figured  in  "clock  ticks,'' 


which  occur  18.2  times  per  second; 
on  the  Atari  ST  the  duration  is  the 
time  in  1/50  second  counts;  on  the 
Commodore  128  it's  in  1/60  sec- 
ond counts. 

On  most  computers,  the  vol- 
ume parameter  is  a  number  from  0 
to  15,  with  15  the  loudest.  The 
Amiga  uses  numbers  from  0  to  255. 
The  voice  parameter  refers  to  the 
sound  channel  you  want  to  use. 
Using  different  voice  numbers  al- 
lows you  to  play  more  than  one 
note  at  a  time,  as  when  playing  a 
three-note  chord. 

Other  commands  may  be  asso- 
ciated with  the  SOUND  command. 
You  may  need  to  use  a  delay  loop 
instead  of  specifying  a  duration 
(Atari).  If  so,  you  could  use  a  FOR 
NEXT  loop  in  a  subroutine.  In  IBM 
BASIC,  be  sure  to  read  about  MB 
for  the  differences  in  music  back- 
ground and  music  foreground. 

The  WAVE  command  for  the 
Amiga  and  Atari  ST  computers  are 
very  versatile  commands  that 
change  the  waveforms  of  the 
sounds  so  you  can  get,  for  example, 
white  noise,  a  flute  sound,  or  a 
trumpet  sound.  (POKE  commands 
on  the  Commodore  64  change 
waveforms.)  Since  numeric  vari- 
able names  are  allowed  in  SOUND 
commands,  try  using  variable  notes 
in  FOR-NEXT  loops  for  all  kinds  of 
different  sound  effects.  You  might 
keep  the  note  number  or  frequency 
the  same,  but  vary  the  volume.  Or 
try  a  FOR-NEXT  loop  with  the  fre- 
quency increasing  in  the  loop. 

You  might  want  to  experiment 
a  bit  with  PLAY  and  SOUND  to 
create  your  own  computer  musical 
composition.  You  may  need  to  ex- 
periment a  lot  to  get  the  sound  you 
want,  but  the  results  can  be  very 
satisfying.  @ 
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The  World  Inside  the  Computer 


Fred  D'lgnozio,  Associote  Editor 


A  Magic  Slate  For  Young  Writers 


1  am  currently  working  with  Ala- 
bama's Dr.  Gloria  Solomon  and 
Canada's  Dr.  Julie  Davis  to  develop 
multimedia  presentations  using 
computers  in  educational  environ- 
ments. For  our  word  processor  we 
have  chosen  Magic  Slate  from  Sun- 
burst Communications  (39  Wash- 
ington Ave.,  Pleasantville,  NY 
10570-9971).  Magic  Slate  costs 
$99,95  and  is  available  for  the  Ap- 
pie  II  family  of  computers  with  a 
minimum  of  48K.  (An  80-column 
card  is  needed  if  you  use  the  80- 
column  version.) 

Magic  Slate  is  a  full-function 
word  processor.  It  lets  your  young 
authors  do  all  the  basic  word  pro- 
cessor functions,  including  cutting 
and  pasting,  word-wrap,  centering, 
underlining,  search  and  replace, 
and  so  on.  It  comes  in  a  large  or- 
ange notebook  with  a  backup  disk, 
a  teacher's  guide,  and  primary  and 
advanced  student  handbooks 
which  the  manufacturer  encour- 
ages you  to  reproduce.  For  an  extra 
price  you  can  also  get  a  lab  pack 
and  extra  reference  cards. 

Electronic  Pen  Pals 

We  chose  Magic  Slate  for  three  ma- 
jor reasons.  First,  it  comes  in  80- 
column,  40-column,  and  20-column 
versions.  Teachers  and  older  stu- 
dents find  the  80-column  version 
easy  to  learn  and  use,  yet  compara- 
ble to  ''business^-quality  word  pro- 
cessors. Younger  students  delight 
in  the  20-  and  40-column  versions. 
They  especially  like  the  20-column 
Magic  Slate's  big  letters.  It's  easy  to 
fill  a  screen  with  these  letters,  and 
you  can  print  them  out  on  paper  if 
you  have  a  graphics  printer. 

Second,  Magic  Slate's  utility 
function  makes  it  easy  to  convert 
students'  papers,  reports,  and  stories 
into  files  which  can  be  sent  via  mo- 
dem to  other  students  thousands  of 
miles  away.  There  is  so  much  more 
incentive  for  students  to  write  when 


they  know  their  words  will  be  trans- 
mitted quickly  to  other  students 
over  the  telephone  line.  Hundreds 

of  students  have  become  electronic 
pen  pals,  and  several  students  in 
Alabama  and  Canada  are  collabo- 
rating on  research  and  science  re- 
ports for  their  teachers.  Another 
dozen  students  are  jointly  authoring 
an  electronic  novel  which  is  present- 
ly growing  at  a  rate  of  five  new 
chapters  a  day. 

Third,  Magic  Slate  does  not  exist 
in  a  vacuum.  It  is  supported  by  an 
excellent  family  of  writing  programs 
which  enhance  and  extend  the  basic 
word  processor.  The  first  program  is 
Type  to  Learn  (for  grade  level 
2-adult  students,  $69),  Type  to  Learn 
teaches  students  how  to  use  the 
computer  keyboard.  Since  the  pro- 
gram uses  a  language-based  ap- 
proach, students  not  only  learn 
where  the  keys  are  on  the  keyboard; 
they  also  practice  their  spelling, 
composition,  grammar,  and  punctu- 
ation as  they  type.  (At  extra  cost 
teachers  can  purchase  a  ten-disk  lab 
pack,  student  typing  textbooks,  and 
a  gradebook  disk  to  manage  stu- 
dents' keyboard  activities.) 

Next  come  a  group  of  three 
programs:  I  Can  Write!  ($40,  for 
grade  2  students).  Be  a  Writer!  ($40, 
for  grade  3  students),  and  Write 
with  Me!  ($59,  for  grade  4  students). 
Each  program  contains  25  lessons 
which  take  the  student,  step  by 
step,  toward  becoming  a  young  au- 
thor. /  Can  Write!,  the  most  elemen- 
tary program,  starts  with  open- 
ended  writing  exercises  w^hich 
encourage  a  student  to  explore  his 
or  her  personal  identity.  Be  a  Writer! 
carries  beginners  into  more  formal 
language  objectives,  including  the 
construction  of  full  sentences,  and 
using  descriptive,  narrative,  and  ex- 
planatory writing.  The  third  pro- 
gram. Write  with  Me!,  lets  children 
construct  their  own  book,  25  chap- 
ters long. 


The  Collected  Writings 

Students  use  the  20-column  version 
of  Magic  Slate  when  they  are  doing 
/  Can  Write!  and  Be  a  Writer!  activi- 
ties; they  use  the  40-column  ver- 
sion of  Magic  Slate  with  Write  with 
Me!  The  programs  challenge  stu- 
dents to  develop  their  word  pro- 
cessing skills  along  with  their 
language  skills.  As  their  writing 
ability  increases,  students  are  en- 
couraged to  use  more  advanced 
word  processing  functions.  Teach- 
ers can  use  a  printer  to  print  out  the 
students'  compositions.  Each  page 
of  a  student's  work  adds  to  a  grow- 
ing book  of  his  or  her  writings. 
After  three  years  and  75  chapters,  a 
student's  "collected  writings"  can 
be  quite  impressive. 

One  last  program.  Magic  Slate 
Typestyles  ($49  for  either  the  20- 
column  or  40-column  Magic  Slate), 
lets  students  install  new  typestyles 
on  their  Magic  Slate  disk.  Students 
can  use  premade  typestyles  or  de- 
sign new  typestyles  of  their  own 
with  the  program's  powerful  editor. 
Teachers  especially  like  the  type- 
styles  program  because  it  enables 
them  to  teach  students  that  learning 
to  write  no  longer  means  just  put- 
ting words  on  a  page  (or  screen). 
Now  a  person  who  wishes  to  com- 
municate can  also  be  involved  with 
the  way  the  writing  looks.  With  this 
program,  the  writer  must  choose  a 
page's  layout  and  design,  the  char- 
acter set  and  font  being  used,  and 
the  accompanying  graphics.  Even 
for  second-  and  third-graders, 
desktop  publishing  is  right  around 
the  corner.  The  Magic  Slate  family  is 
so  valuable  because  it  prepares 
youngsters  for  the  age  of  desktop 
publishing  by  integrating  language 
arts,  word  processing,  and  "page 
processing"  skills  into  a  single  cur- 
riculum of  exercises  and  activities,© 
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INSIGHT:  Atari 


Bill  Wilkinson 


RUN  And  INIT  Vectors 


This  month's  discussion  is  sonne- 
thing  of  a  continuation  of  my  col- 
umn of  a  couple  of  months  ago, 
where  I  presented  a  program  that 
showed  you  the  segments  of  a  bina- 
ry file.  And  that  column,  in  turn, 
referred  back  to  the  April  1986  col- 
umn. Both  columns  are  required 
reading  for  a  full  understanding  this 
month,  but  you'll  learn  something 
even  if  you  are  reading  this  cold. 

We  begin  by  noting  that  when 
you  ask  Atari  DOS  (version  2, OS  or 
2.5)  to  save  a  chunk  of  memory  as  a 
binary  file,  it  asks  you  to  supply 
four  numbers: 

START,END,INIT,RUN 

And,  if  you've  looked  through 
enough  magazine  articles  or  user 
group  newsletters,  you've  probably 
come  across  places  where  an  author 
instructed  you  to  use  the  save  bina- 
ry file  option,  mentioned  the  begin- 
ning and  ending  addresses,  and 
then  told  you  to  be  sure  to  give  the 
proper  RUN  j(and/or  INIT)  address. 
The  START  and  END  numbers 
seem  obvious:  They  are  the  first 
and  last  addresses  of  the  range  of 
memory  to  be  written  out.  But  what 
about  INIT  and  RUN?  What  can 
those  possibly  mean? 

A  Feature  Unmatched 

The  ability  of  any  binary  file,  in- 
cluding the  ever-important  AUTO- 
RUN. SYS,  to  have  a  RUN  or  INIT 
address  associated  w^ith  it  is,  in  my 
opinion,  a  feature  unmatched  by 
any  small  system  DOS,  up  to  and 
including  MS-DOS  (IBM  PC  and 
clones)  and  TOS  (for  the  ST).  Only 
with  Atari  DOS's  binary  files  and 
their  format-compatible  relatives 
can  you  tell  the  operating  system  to 
load  part  of  your  binary  file  (also 
called  machine  language  file,  object 
code,  and  so  on — several  names  for 
the  same  thing),  execute  that  part, 
and  then  continue  loading  more  of 
the  file.  So  let's  see  how^  it  all  w^orks. 


When  DOS  loads  a  binary  file, 
including  the  AUTORUN.SYS  file 
at  power-up  time,  it  monitors  tw^o 
locations.  The  simpler  of  the  tw^o  is 
the  RUN  vector.  Before  DOS  begins 
the  load  of  a  binary  file,  it  puts  a 
known  value  into  locations  736- 
737  (hex  $2E0-$2E1).  When  the  file 
is  completely  loaded — DOS  en- 
counters the  end  of  the  file^ — ^if  the 
contents  of  location  736  have  been 
changed,  then  DOS  assumes  the 
new  contents  specify  the  address  of 
the  beginning  of  the  program  just 
loaded.  DOS  calls  the  program  (via 
a  JSR)  at  that  address. 

The  second  monitored  location 
is  the  INIT  vector,  at  738-739  (hex 
$2E2-S2E3).  This  vector  works 
much  the  same  as  the  RUN  vector, 
but  DOS  initializes  and  checks  it  for 
each  segment  as  the  segments  are 
loaded.  If  the  INIT  vector's  contents 
are  altered,  then  DOS  assumes  the 
user  program  wants  to  stop  the  load 
process  long  enough  to  call  a  sub- 
routine. So  DOS  calls  (via  a  JSR)  at 
the  requested  address,  expecting 
that  the  subroutine  will  return  so 
that  the  rest  of  the  load  can  take 
place.  This  is  a  very  handy  feature. 
Most  of  you  have  probably  seen  it 
at  work^ — for  example,  when  a  pro- 
gram first  puts  up  an  introductory 
screen  (maybe  just  a  title  and  a 
Please  wait  message)  when  you  run 
(or  boot),  then  continues  to  load. 

Taking  Full  Control 

The  other  important  difference  be- 
tween the  RUN  and  INIT  vectors  is 
that  DOS  leaves  channel  1  open 
while  the  INIT  routine  is  called. 
(DOS  ahvays  opens  and  loads  the 
binary  file  via  this  channel.)  1  sup- 
pose a  really  tricky  program  could 
close  channel  1,  open  a  different 
binary  file,  and  then  return  to  DOS. 
DOS  would  proceed  to  load  the 
new  file  as  if  it  were  continuing  the 
load  of  the  original  one.  Most  of  the 
time,  though,  INIT  routines  should 


not  touch  channel  1. 

As  noted,  when  you  SAVE  a 
binary  file  from  DOS  2.x  (and  many 
of  its  variants),  you  are  allowed  to 
specify  both  an  INIT  and  a  RUN 
address.  But  the  INIT  address  is  sort 
of  useless,  since  it  is  added  to  the 
end  of  a  file;  so,  for  example,  your 
opening  screen  display  won't  occur 
until  the  entire  file  is  loaded.  To 
take  full  control,  you  must  resort  to 
assembly  language  (or  to  a  com- 
piled language,  such  as  Kyan  Pascal 
or  OSS's  Action).  For  those  of  you 
familiar  with  assembly  language,  I 
present  the  skeleton  listing  below. 
This  listing  is  compatible  with  the 
Atari  Assembler  Editor  cartridge  or 
the  MAC/65  assembler.  You  will 
need  to  make  a  handful  of  minor 
substitutions  if  you  are  using  some 
other  assembler. 

I'm  not  going  to  explain  the 
program  in  great  detail— the  source 
code  is  fairly  well  documented.  A 
couple  of  important  points  though: 
Notice  that  there  is  no  special  com- 
mand to  the  assembler  that  will 
force  it  to  put  in  an  INIT  vector  (or 
RUN  vector — unless  you  have  the 
AMAC  assembler).  Instead,  we  sim- 
ply create  a  binary  file  segment  that 
is  only  two  bytes  (one  word)  long. 
And  this  segment  is  loaded  by 
DOS's  loader  at^ — w^here  else — the 
appropriate  vector.  So  the  very  act 
of  loading  the  specified  addresses 
modifies  the  contents  of  the  vector. 
What  could  be  neater? 

As  mentioned,  this  is  strictly  a 
program  skeleton.  It  will  do  noth- 
ing as  is.  You  must  add  some  of 
your  own  assembly  language  to  it 
lo  make  it  actually  do  something 
So,  if  you  thought  INIT  and  RUN 
vectors  were  beyond  you,  try  this 
skeleton  and  be  ready  to  change 
your  mind. 

INIT  Vector  Example 

;  Skeleton  of  a  program  which  puts 
;  a  'please  wait'  type  message  on 
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the  screen  before  loading  the 
main  code. 


DOINIT 


$3000  ;  or  someplace 


the  code  which  follows  is  for 

demo  purposes  onlyl  Use  your 
own  code...pretty  display  lists 
or  dazzling  colors  or  whatever 

LDX 

#0 

;  channel  zero 

LDA 

#9 

;  Put  Text  com- 
mand 

STA 
LDA 

$342 
#MSG&255 

;  command  byte 

STA 

$344 

;  low  byte,  addr 

LDA 
STA 
LDA 

#MSG/256 

$345 
#255 

of  msg 

;  high  byte,  ditto 
;  use  a  too-big 

STA 

$348 

length... 
;  since  RL 1  URN 

terminates 
;  this  call 

JSR 
RTS 

$E456 

anyway 
;  call  CIO 
;  back  to  DOS 

MSG  .BYTE  125  ;  (clear  screen) 

.BYTE  29,29,29,29  ;  Cursor  down) 
.BYTE  127  ;  (tab  once) 
.BYTE  "—please  wait—" 
.BYTE  155  ;  (return...end  of  msg) 

now  the  INIT  VECTOR  forces  DOS 
to  call  our  DOINIT  routine 

*^  $2E2;  init  vector 

.WORD  DOINIT  ;  gets  pointed  to  us 

Your  main  program... 
you  are  on  your  own  here! 

*  =  $3000  ;  the  same  address  if  you 
like 

I  can  use  the  same  address  because 
my  init  code  can  disappear  when 
its  job  is  done.  This  may  not 
work  with  your  code.  Be  careful. 

DORUN 


then  we  get  DOS  to  run  our  program 
by  using  a  RUN  vector. 

•=  $2E0  ;  AMAC  uses  ORG, 

not  *  = 
.WORD  DORUN ;  AMAC  uses 

WORD,  no  dot 
.END  ;  AMAC  uses  END, 

no  dot 


Attention  all  FX80,  FXlOO,  JX,  RX.  &  ISt  owners: 

Yott  already  own  half  of 
a  great  printer   ~ 


Now 
Onl 


Now  for  $79.95  you  can  own 

the  rest.  You  see,  today  s  new  dot 
matrix  printers  offer  a  lot  more. 

Like  an  NLQ  mode  that  makes 
their  letters  print  almost  as  sharp  as 
a  daisy  wheel.  And  mode  switch- 
ing at  the  touch  of  a  button  in  over 
160  styles.  But  now,  a  Dots-Perfect 


upgrade  kit  will  make  your  printer 

work  like  the  new  models  in  min- 
utes— at  a  fraction  of  their  cost. 

And  FX,  JX  and  MX  models  will 
print  the  IBM  character  set.  too. 

So,  call  now  and  use  your  Visa. 
MasterCard,  or  AmerEx.  Dorit 
replace  your  printer,  upgrade  it! 


1-800-368-7737 

(Anywhere  in  the  United  States  or  Canada) 


g  SS-I     f  Dots-Perfect) 

8560  Vineyard  Ave,,  Ste.  405,  Rancho  Cucamonga,  CA  91730 

An  upgrade  kit  for  EPSON  FX,  JX,  RX,  &  MX  printers 


Sample  of 

lettci  without 

Dots-Perfect 


(714)945-5600 


ISM  » 1  nftiwrtJ  iri.iJrrAjrki 


Looking  for  a  Widget 

foryotxr 

Okidata  printer  and 

need  it  now? 

Call  Predsionl 

Precision  Images  normally  stocks 
most  spare  parts  for  your  Okidata 
printer,  from  the  Okimates  to  the 
Pacemarks  including  the  new 
Microline  and  Laserline  series. 
Anything  and  everything  for  your 
Okidata  printer  is  only  a  phone 
call  away  Precision  Images  is 
"your  direct  connection  to  genu- 
ine Okidata  parts  and  supplies." 

for  Visa/MasterCard  orders  call: 
1-800-524-8338 


preckston  kmages 


Precision  Images,  Inc. 

PO-  Box  866 

Mahwah.  New  Jersey  07430 


bQTTO  EIPHER, 


CIKT  THE  B^ST  ODDS  OS  ANV  l.OTTI-H^ 
SIX  Nl'MBKK     m'K  HH  H     1>A1UV  (JAMS: 

•  PRODUCES  FOUft  COMBWATIOHS  Of 
NUUftERS  TO  CHOOIE  r^OH 

•  IM1  AiiOUHT  OF  »AUS  AND  NUMBtM  CAN 
BE  PROanAMHED. 

-  PRINTS  OUT  P*ST  lOTTD  NUMBERS  OUAWN 
PAST  COMPUTER  PICKS.  AUD  NUMftER  DHAW 
fREOUENCV  UST 

•  RA>IOO«  NUMAER  QEKERATOR  INCLUI^ED 


III  t\  z-u 


"Wina^w 


!K1«9»« 


SLPER  H!  KE-SOLLTION  nitAWJM;  |N  Ml  (,Tlt>»  MOVl  COLOR 

,  COPT  •  MIftftOR    Ft  IP    kMO  SCPOiLiNC  WW£SO#fS 

.  F)LL  *  lOGUtXPKHtn  A  WIN90W  TO  OOUSI.E  Vlt 

,  I  atct  *  SAVE  AMD  LOAD  totin  wtNOO wt  Oh  0*%^ 

.  DKAW  •  Wmmi  ON  StAHDAAQ  DOT  taATHil  rnMTIH 

»  COLOP  lOUlBt*  *  CLONt  COlOA  AfT»l»UTEl 

•  TTFfl  t-CTTERS  AhO  Olt*PHlCa 

.  «St tOOh  V^APtVtJtPAKO   IHHIHK  AND  P01»TI    ThCN  %ftttP  ANYWHCRE 
>  ZOOM  PLOT-DRAW  Oh  AN  tlPAHpCD  WWDOW  HHO  >OUn  O^AHtNO  AT  THE 
SAME  tlME 

t7*  n  C  f4rf}t 


STOCK  BROKER- 


feu-Yiiya  oooD  oualitt.  volatile  'Siuii  and 

USINO  THfS  THAD^Nd  St  JtElJ  WILL  HAVE  VOU  FULLT 
INVEST £0  AT  THE  LOWftT  PRICE  1  AHO  CDNVERTiNa 
TO  CA*M  AS  THE  STOCK  nEAftS  US  PEAK 

■   TECHhiCAL  TPAD^Na  THAT  WORKS 
•   HAR  QRAPt^  PR)  NT -OUTS 

■J  vf  TO  1M  STocits  ON  A  asm 


13«  11  C't*    lit 


ACORN  OF  INDIANA,  INC. 

£721  OHIO  STREET  ^JT         ,^M\ 

MSCHIGAM  CITY.  IN  46360  ^■'^        15^^ 

219-879-2284 

SHIPPISG  WD  H4NDi.n<.,  ADD  il.*0  ■  L  U.U'S  MMntt 
VISA  AND  M\STKK  l^RD  t>«DLRS  ADD  J** 
tVDUNA  RLSIDEVTS  -VDD  ^-V  SM.KS  TaV 
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IBM  Personal  Computing 


Donold  B.  Trivette 


The  Mother  Load  Of  Software 


Imagine  thousands  and  thousands 
of  computer  programs  available  for 
less  than  ten  cents  each,  and  you 
have  just  imagined  PC-Sig's  new 
CD-ROM  disc  with  more  than 
15,000  files.  PC-Sig  is  an  unofficial 
keeper  (there  being  no  official  keep- 
er) of  the  DOS  computer  programs 
that  have  found  their  way  into  the 
public  domain  either  from  computer 
clubs  and  savvy  individuals  or  from 
professional  software  developers 
seeking  to  avoid  the  high  cost  of 
promotion  and  advertisement. 

For  about  $20  you  can  join  PC- 
Sig  and  receive  a  directory  listing 
the  contents  of  more  than  700  disks 
as  well  as  a  monthly  newsletter  de- 
scribing new  contributions.  You  may 
order  disks  through  the  mail,  by 
toll-free  telephone,  or  from  several 
dozen  PC-Sig  authorized  dealers. 
Each  disk — even  the  ones  stuffed 
with  20  or  more  programs — is  priced 
at  just  $6.  Until  recently  PC-Sig's 
only  method  of  distribution  was  via 
floppies,  but  now  the  distribution 
has  entered  the  CD-ROM  age. 

A  Huge  **Hard  Disk" 

For  $195  you  can  purchase  the  en- 
tire PC-Sig  collection  containing 
thousands  of  programs  all  on  one 
CD-ROM  disc.  The  disc  comes  with 
driver  software  causing  your  CD- 
ROM  player  to  emulate  a  huge  hard 
disk,  which  permits  many  standard 
DOS  commands  to  be  used  to  ac- 
cess and  manipulate  files  on  the 
CD-ROM.  The  CD  is  organized  so 
that  each  floppy  is  allocated  its  own 
directory.  To  read  a  file  named 
CASTLE.DOC  on  what  would  be 
disk  number  47,  for  example,  you 
simply  use  the  DOS  TYPE  com- 
mand. The  syntax  to  point  to  the 
subdirectories  and  display  the  file 
would  be  TYPE  D:\l-100  \DISK- 
047\CASTLE.DOC.  The  DOS 
COPY  command  is  used  to  copy  the 
programs  from  the  CD-ROM  to 
your  floppies  or  hard  disk  for  exe- 
cution,  although   some   programs 


will  execute  directly  off  the  disc. 

In  order  to  make  the  CD  avail- 
able as  economically  as  possible, 
PC-Sig  has  not  included  expensive 
search  software  with  the  disc.  In- 
stead you  must  rely  on  the  printed 
directory,  on  the  DOS  FIND  com- 
mand, or  on  your  own  word  pro- 
cessing software  to  scan  the  index 
files  and  locate  programs  that  are  of 
interest  to  you.  This  isn't  quite  like 
looking  for  a  disk  in  a  haystack, 
since  many  of  the  disks  have  a 
theme:  games,  utilities,  languages, 
word  processing,  communications, 
and  special  interest. 

The  quality  of  the  software 
runs  from  ho-hum  to  excellent.  The 
following  descriptions  are  quoted 
from  the  PC-Sig  newsletter's  hit  pa- 
rade of  disks.  Disk  517:  'TM AGE- 
PRINT  allows  the  production  of 
high-quality  characters  on  a  dot- 
matrix  printer. ...All  the  mathemati- 
cal symbols,  international 
characters,  and  graphics  characters 
are  included,"  Disk  418:  '^HARD 
DISK  UTILITIES  is  a  collection  for 
the  hard-disk  user  compiled  from 
over  25  disks  in  our  library.''  Disk 
523:  "SIDEWINDER  is  a  program 
that  allows  printers  to  output 
sideways.... It  works  much  like  the 
commercial  program. ..is  written  in 
PASCAL  and  the  source  code  is 
provided.''  Disk  558:  ^'PC- 
PROMPT  is  a  memory-resident 
DOS  extension  that  provides  syn- 
tax prompting  for  DOS  commands 
as  you  type."  Disk  273:  "BEST 
UTILITIES  have  been  taken  from 
other  library  volumes... to  collect  on 
one  disk  all  of  the  better  utilities/' 
Disk  310:  "QMODEM  is  a  fantastic 
telecommunications  program...." 
Disk  376:  "PATCHES  are  programs 
that  allow  you  to  place  the  indicat- 
ed programs  on  your  hard  disk  or  to 
make  backup  copies." 

Personal  Bests 

Some  of  my  own  favorites:  Disk  53, 
which  contains  BASIC  programs  to 


make  different  sounds,  including 
chirp,  bomb,  siren,  engine,  and  ta- 
daa;  Disk  78,  the  PC-Write  word 
processing  program;  Disk  120,  a  PC 
Chess  program;  Disk  216,  a  group  of 
C  utilities;  Disk  241,  specializing  in 
games  for  the  PCjr;  Disk  321,  home 
applications;  Disk  354,  another  disk 
of  games  just  for  PCjrs;  Disk  372,  a 
collection  of  dozens  of  BASIC  sub- 
routines; Disk  375,  a  group  of  Pascal 
utilities;  and  Disks  528-529,  which 
contain  the  New  York  Word  word 
processing  program.  Other  disks 
that  look  interesting  include  Disk 
447— THE  SKY,  Disk  459— AGRI- 
CULTURAL PROGRAMS,  Disk 
465— FAMILY  TIES,  Disks  494- 
496— THE  WORLD  DIGITIZED, 
and  Disk  565— HAMRADIO, 

Although  the  PC-Sig  CD  is 
quite  a  bargain,  most  software  dis- 
tribution will  continue  to  be  made 
on  floppy  disks  until  CD-ROM 
players  fall  in  price.  For  more  infor- 
mation, write  PC-Sig,  1030  East 
Duane  Ave.,  Suite  D,  Sunnyvale, 
CA  94086,  or  call  (408)  730-9291. 

Fix  It  Yourself 

It  wasn't  long  after  I  got  my  IBM  PC 
that  I  took  some  of  the  key  caps  off 
just  to  see  what  made  the  keys 
click.  The  A  and  the  S  caps  reseated 
perfectly,  but  the  space  bar  didn't 
quite  snap  into  place,  and  Td  been 
working  with  it  partly  attached  for 
years.  Now — thanks  to  a  new  book. 
How  to  Repair  and  Maintain  Your 
IBM  PC,  by  Gene  Williams^ — IVe 
been  able  to  repair  my  faulty  key- 
board. If  you  are  do-it-yourself  in- 
clined (or  stupidly  curious,  as  I 
was),  this  book  may  be  just  what 
you're  looking  for.  It  has  chapters 
on  diagnosing  what  is  wrong,  disk 
drives,  power  supplies,  trouble- 
shooting memory,  adding  to  your 
system,  and — when  all  else  fails — 
dealing  with  the  technician.  It's 
priced  at  $13.50  from  Chilton  Pub- 
lishing in  Radnor,  PA.  © 
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ST  Outlook 


Philip  I,  Nelson,  Assistant  Editor 


Tower  Of  Babel 


This  month  we'll  take  a  whirlwind 
tour  of  some  popular  ST  languages, 
translating  a  short  but  useful  pro- 
gram into  each  language  in  turn. 
The  assembly  language  version  of 
this  program  is  only  59  bytes  long, 
but  it  can  speed  up  disk  save  opera- 
tions by  a  factor  of  about  30-50 
percent,  depending  on  the  size  of 
the  file  involved.  No,  it's  not  done 
with  mirrors.  In  fact,  the  job  is  so 
easy  as  to  be  almost  trivial  from  a 
programming  standpoint. 

Like  some  other  computers, 
the  ST  automatically  verifies  the 
success  of  every  disk  write  opera- 
tion.  At  memory  location  $444 
(1092)  is  a  word-length  variable 
that  indicates  whether  verification 
is  in  effect.  If  this  flag  contains  a 
nonzero  value  ($FFOO  is  normal) 
the  ST  verifies  all  disk  saves;  if  it 
contains  zero,  verification  is  turned 
off.  Thus,  you  can  disable  verifica- 
tion simply  by  putting  a  zero  into 
$444.  Our  programmers  use  this 
technique  regularly  to  speed  up 
saves  on  floppy  disk  drives;  how- 
ever, I  advise  against  using  it  with 
any  hard  disk  drive. 

Assembly  language 
Version 

Program  1  is  the  source  code  for  the 
original  version,  which  is  written  in 
assembly  language.  If  you  don't 
have  an  assembler,  you  can  create 
this  program  with  Program  6.  Type 
in  that  program  with  ST  BASIC  and 
run  it;  then  go  to  the  desktop  and 
double-click  on  QUICKSAVE.PRG. 
Verification  is  disabled,  and  you 
should  notice  a  significant  speed- 
up in  disk  saves. 

The  first  four  instructions  in 
Program  1  call  the  XBIOS  routine 
known  as  Supexec,  which  executes 
a  routine  in  supervisor  mode,  (As 
explained  in  a  previous  column, 
certain  ST  memory  areas  can  be 
accessed  only  in  supervisor  mode,) 
The  first  instruction  passes  to  Su- 


pexec tne  address  of  the  routine  we 
want  to  execute.  The  second  in- 
struction passes  the  opcode  (38)  of 
the  Supexec  routine  itself.  When  w^e 
invoke  the  routine  with  trap  #14, 
the  machine  flips  into  supervisor 
mode,  performs  the  designated  rou- 
tine (mycode),  and  switches  back  to 
user  mode.  In  the  mycode  routine, 
the  instruction  clr.w  $444  clears,  or 
stores  a  zero  in,  location  $444.  After 
returning  from  the  XBIOS  trap,  we 
add  six  bytes  to  the  stack  pointer  to 
adjust  for  the  word  and  longword 
previously  pushed  onto  it.  Finally, 
the  instructions  clr.w  -(sp):trap  #1 
call  Term,  the  standard  GEMDOS 
routine  for  terminating  a  program. 

C  Version 

After  writing  and  testing  the  assem- 
bly language  version,  I  translated  it 
into  C  (Program  2).  The  #include 
statement  in  the  first  line  tells  the 
compiler  to  include,  or  read,  a 
header  file  named  osbind.h  when  it 
compiles  this  program.  This  partic- 
ular header  file  contains  definitions 
for  all  of  the  XBIOS,  BIOS,  and 
GEMDOS  functions  on  the  ST,  in- 
cluding Supexec,  the  XBIOS  func- 
tion we  need.  Actually,  we  need  to 
grab  only  two  statements  from 
osbind.h: 

extern  long  xbios( ); 

#define  Supexec(a)  xbios(38,  a) 

The  #define  statement  allows 
us  to  substitute  the  descriptive 
name  Supexec  for  XBIOS  function 
38.  We  could  have  skipped  the  #in- 
clude  and  defined  Supexec  with 
these  statements,  but  using  the 
header  file  saves  typing  and  mini- 
mizes the  risk  of  typos — important 
considerations  in  longer  programs, 
which  may  use  dozens  of  different 
system  routines.  (By  the  way,  every 
language  package  contains  all  the 
requisite  include  files.) 

Note  how  the  use  of  a  descrip- 
tive name  makes  this  program  easi- 
er to  read  than  the  first  example.  If 


you  know  what  Supexec  does  (ig- 
noring for  the  moment  the  question 
of  how  one  attains  that  knowl- 
edge), you  can  tell  at  a  glance 
what's  involved  in  any  statement 
where  that  name  appears. 

The  second  statement  in  the 
program — extern  int  mycode(  ) — 
makes  it  possible  for  Supexec  to 
find  the  address  of  mycode,  the 
function  we  wish  to  execute  in  su- 
pervisor mode. 

The  third  line  in  Program  2 
declares  a  pointer  variable  named 
ptr.  Because  C  has  no  keyword 
equivalent  to  BASIC'S  POKE,  we 
must  use  a  pointer,  which  is  simply 
a  variable  that  points  to  something 
else.  The  first  statement  in  the  my- 
code function  is  ptr  =  (int  *) 
0x0444.  It  makes  ptr  point  at  loca- 
tion $444,  or  0x0444  in  C  terminol- 
ogy. The  expression  (int  V  is  a  cast 
which  tells  the  compiler  we're  deal- 
ing with  a  word-length  object  rath- 
er than  something  of  another  size. 
Once  ptr  is  aimed  at  the  right  spot, 
the  statement  *ptr  =  0  stores  a  zero 
in  the  place  where  it  points. 

The  main  body  of  every  C  pro- 
gram is  contained  in  a  function 
named  main.  The  curly  braces  { 
and  }  mark  the  extent  of  main,  and 
of  every  other  function.  Our  main 
function  contains  the  single  state- 
ment Supexec(mycode),  which  in- 
vokes the  Supexec  function, 
passing  to  it  the  address  of  the  rou- 
tine we  wish  to  execute  in  supervi- 
sor mode.  The  program  terminates 
when  we  hit  main's  second  curly 
brace.  Notice  that  we  don't  have  to 
do  anything  special  to  terminate  the 
program;  the  compiler  handles  that 
detail  for  us,  as  it  does  many  others. 

Pascal  Version 

Program   3  is  the  same  program 

written  for  Personal  Pascal,  the  OSS 
implementation  of  Pascal  for  the 
ST.  Pascal  is  very  different  from  C. 
In  the  first  place,  Pascal  originated 
as   an   academic,   not   a   practical. 
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computer  language,  and  it  was  de- 
veloped for  large,  multiuser  com- 
puters where  tinkering  with  the 
machine's  innards  is  a  definite  no- 
no.  Accordingly,  the  pure  incarna- 
tion of  Pascal  forbids  any  direct 
access  to  the  computer's  memory. 
But  such  concerns  are  less  impor- 
tant on  a  single-user,  non»multi- 
tasking  computer  like  the  ST.  And, 
as  a  practical  matter,  most  Pascal 
compilers  let  you  do  a  number  of 
things  that  the  Pascal  language 
doesn't  want  you  to  do.  So  let's  be 
naughty. 

Near  the  top  of  Program  3,  the 
VAR  statement  declares  the  vari- 
able ssp,  which  we'll  use  later  to 
store  an  address.  Compare  this  to 
the  statement  which  declares  ptr  in 
the  C  program.  Though  the  syntax 
is  slightly  different,  the  result  is  the 
same:  Both  declarations  tell  the 
compiler  the  name  and  type  of  a 
variable  which  we  intend  to  use. 
Unlike  BASIC,  which  automatically 
creates  variables  as  soon  as  you  use 
them,  Pascal  and  C  require  you  to 
declare  every  variable  (state  its 
name  and  type)  before  use. 

The  FUNCTION  declaration 
gives  the  compiler  the  information 
it  needs  to  call  a  system  routine — in 
this  case,  the  GEMDOS  function 
named  Super,  w^hose  opcode  is  $20. 
Again,  despite  some  syntactical 
variations,  you  can  see  the  similar- 
ity between  this  and  the  #define 
statement  which  we  could  have 
used  in  the  C  version. 

The  naughty  part  of  Program  3 
is  found  in  the  procedure  wpoke, 
which  performs  the  equivalent  of  a 
POKE  by  means  of  an  unusual  vari- 
ant record  named  funny.  1  can't 
take  credit  for  this  procedure,  by 
the  way;  it  comes  from  an  unsup- 
ported OSS  include  file  {unsupport- 
ed meaning  that  OSS  offers  this 
code  for  general  use,  but  does  not 
answer  questions  or  offer  other  cus- 
tomer support  relating  to  it). 

The  main  body  of  this  program 
occurs  in  the  last  BEGIN-END  con- 
struct. Just  as  curly  braces  enclose 
the  body  of  a  C  function,  the  w^ords 
BEGIN  and  END  enclose  the  body 
of  a  Pascal  procedure.  The  first 
statement  in  this  procedure  invokes 
the  system  routine  Super,  passing  it 
a  zero  to  get  us  into  supervisor  mode 
and  saving  the  previous  address  of 
the  user  stack  pointer  in  the  variable 


ssp.  The  second  statement  calls  the 
procedure  wpoke  to  store  a  zero  in 
location  $444.  The  third  statement 
calls  Super  a  second  time,  passing  it 
the  address  stored  in  ssp  to  put  us 
back  in  user  mode.  The  two  calls  to 
Super  have  the  same  effect  as  one 
call  to  Supexec,  without  the  difficul- 
ty of  passing  the  address  of  one 
Pascal  procedure  to  another. 

ST  BASIC  Version 

Program  4,  the  ST  BASIC  version, 
requires  only  one  line  of  code.  The 
DEFDBL  statement  insures  that 
we'll  be  POKEing  a  word-length 
quantity  rather  than  a  byte.  Notice 
that  we  needn't  do  anything  to  put 
the  computer  in  supervisor  mode 
before  doing  the  POKE:  Either  ST 
BASIC  itself  runs  in  supervisor 
mode,  or  it  shifts  in  and  out  of 
supervisor  mode  to  do  the  POKE. 
That  may  sound  convenient, 
particularly  since  ST  BASIC  offers 
no  means  to  access  the  XBIOS  or 
GEMDOS  routines  that  invoke  su- 
pervisor mode.  But  it  makes  POKE 
a  potent  weapon,  indeed.  One  of 
the  most  common  and  most  deadly 
BASIC  programming  errors  comes 
from  POKEing  to  an  address  differ- 
ent from  the  one  intended.  In  this 
program,  for  instance,  say  that  you 
accidentally  type  POKE  A  A,  0  in- 
stead of  POKE  A,  0.  The  variable 
AA  is  never  defined  in  this  pro- 
gram, so  it  has  the  value  zero  by 
default.  The  effect  is  to  POKE  a  zero 
into  location  zero:  ST  BASIC  crash- 
es with  two  cherry  bombs  on  the 
screen,  and  the  system  locks  up 
completely  when  the  desktop  reap- 
pears. Be  extremely  careful  with 
POKE  in  ST  BASIC. 

GFA  BASIC  Version 

GFA  BASIC  offers  tw^o  different 
types  of  POKE  statements.  POKE, 
DPOKE,  and  LPOKE  let  you  store  a 
byte,  word,  or  longword  value,  re- 
spectively, in  any  memory  location 
that's  accessible  in  user  (normal) 
mode.  If  you  need  to  access  protect- 
ed memory,  you  may  use  SPOKE, 
SDPOKE,  or'  SLPOKE,  to  store  a 
byte,  word,  or  longword  in  a  pro- 
tected address.  The  S  in  these  com- 
mands stands  for  supervisor  mode. 
What's  nice  about  this  scheme 
is  that  it  protects  the  unwary  tyro 
against  simple  blunders,  without 
denying  sophisticated  programmers 


access  to  the  machine.  If  you  acci- 
dentally POKE  to  a  protected  mem- 
ory address,  GFA  BASIC  traps  the 
error  and  puts  up  a  message  sug- 
gesting that  you  check  your  POKEs 
and  PEEKs.  BASIC  recovers  without 
crashing,  as  it  should  from  any  run- 
time error.  If  you  go  to  the  trouble  of 
putting  an  S  in  front  of  the  POKE,  it 
is  assumed  that  you  know  what 
you're  doing  and  are  prepared  for 
the  possible  consequences. 

Bloody  But  Unbowed 

That  concludes  our  pocket  tour  of 
Babel,  but  the  list  of  ST  dialects  is 
by  no  means  exhausted.  Had  space 
(and  my  patience)  permitted,  we 
might  have  tried  Modula-2,  Forth, 
BCPL,  and  others.  It's  interesting  to 
see  how  various  languages  favor 
different  solutions  to  the  same 
problem,  but  don't  worry  if  some  of 
the  examples  look  confusing.  Few 
programmers  need  to  become  pro- 
ficient in  more  than  one  or  two 
languages,  and  the  plain  truth  is 
that  a  good  programmer  can  write 
effective  programs  in  almost  any 
language.  So  find  one  that  suits 
your  owm  needs  and  go  to  work. 


Program  l:Assembry 
Languoge  Version 

move.l  #mycode,  -(sp) 
move.w  #38,  -(sp) 
trap  #14 
addq.I  #6,sp 

cir.w  -(sp) 
trap  #1 

mycode: 
clnw  $444 
rts 


Program  2:  C  Version 

#include  <osbind.h> 
extern  int  inycode(  ); 
int  *ptr; 

inain( ) 

i 

Supexec(mycode); 

} 

mycodeC ) 

{ 
ptr  =  (int  *)  0x0444; 
♦ptr  =  0; 


Program  3:  Pascal  Version 

PROGRAM  quiksave; 

VAR 

ssp:  long -integer; 

FUNCTION  super{sp:  long -integer): 
long  —  integer; 
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GEMDOS($20); 

;$p.} 

PROCEDURE  wpoke(addtess:  long- 
integer;  value:  integer); 
TYPE 

int-ptr  =  Integer; 
VAR 

funny:  RECORD 
CASE  boolean  OF 

true:  (a:  long— integer); 
false;  {p:  int-ptr); 
END; 
BEGIN 
funny.a  :=  address; 
funny.p*  :=  value; 
END; 
{$P  =  } 
BEGIN 

ssp  ;=  supedO); 
wpoke($444,0); 
ssp  :=  super(ssp); 
END 


Program  4:  ST  BASIC  Version 

10  defdbl  a:a-&H444:poke  a,0 


Program  5:  GfA  BASIC 
Version 

sdpoke  &H444,  0 


Program  6:  QUIKSAVE.PRG 
Filemaker 


110 
120 
130 
140 
150 
160 
170 


1B0 
1¥0 
200 
210 
220 
230 
240 
250 
260 
270 


closes opan  "R'%  1 , "A: \QUIK 

SAVE.  PRO",  59 

^ield  «1,5?  as  a$ 

for  j=l  to  59: read  byt« 

byt^val  ("«<H"+byt*) 

c=G-*'l !  chk»ctik+c+byt 

x*=x*+chr*tbyt) :next 

ISBt  ASaxtiput  lr0tClO>B 

if  chk<>3363  then  ?  "Typi 
ng  error": kill  "As\QUIKBA 
VE.PRO" 

data  60, lA, 00,00,00,1 A 
data  00,00,00,00,00,00 
data  00,00,00,00,00,00 
data  00,00,00,00,00,00 
data  00,00,00, 00, 2F,3C 
data  00,00,00, 12, 3F,3C 
data  00,26,4E,4E,5C,BF 
data  42, 67, 4E, 41, 42, 79 
data  00, 00, 04, 44, 4E, 75 
data  00,00,00,02,00     © 


CAPUTE! 


Attention  Programmers 

COMPUTE!  magazine  is  currently 

looking  for  quality  articles  on 
Commodore.  Atari.  Apple, 
and  [BiVl  computers  (inciuding 
the  Commodore  Amiga  and 
Atari  ST),  if  you  iiave  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTE!.  P.O. 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines/' 


Apple  Magazine  Indexer 

The  Apple  version  of  this  filing  util- 
ity from  the  April  issue  (p.  106)  is 
missing  its  first  three  lines.  To  cre- 
ate a  working  version,  add  the  fol- 
lowing to  the  published  listing: 

■?6  0  GOTO  50 

DE  1  REM  POSITION  COMMAND 
iC  2  PRINT  Df  "READ^'2$",R"FP",B"B 
V:  RETURN 

Euchre 

In  the  Apple  version  of  this  game 
from  the  March  issue,  the  first  four 
lines  are  missing  from  the  BASIC 
listing  (Program  3,  p.  54).  For  a 
complete  program,  add  the  follow- 
ing lines: 

1  PRINT  CHR*(4J ;"BLOAD  EUCHRE. B 
IN, A36008" 

2  IF  PEEK (190*256) ^76  THEN  PRIN 
T  CHR*(4)  ;  "PR#A36008'*:6OTa  <^ 

3  POKE  54, 168: POKE  55, 140: CALL 
1002 

4  POKE  6,0:PaKE  7,141:P0KE  230, 
64 

Many  owners  of  IBM  PC  and 

compatible  computers  have  had 
difficulty  deciphering  the  graphics 
characters  used  in  their  version  of 
the  game  (Program  5,  p,  5%).  To 
simplify  entry,  change  or  add  the 
following  lines,  which  build  the 
graphics  from  character  codes  in 
DATA  statements: 

PL  1005  COLOR  0,6: LOCATE  1,28,0: 

PRINT  CHR$ (201) STRING* (1 

0,205)CHR*(1B7) 
PI  1010  LOCATE  2, 28: PRINT  CHRS ( 1 

86)"   EUCHRE   "CHR*(186) 
K    1015  LOCATE  3, 2S: PRINT  CHR$(2 

00) STRING* (10, 205) CHR$ ( 1 

38) 
EC  1060  FOR  1-0  TO  5: LOCATE  19+1 

,33: PR I NT  CHR$(222) ; : NEX 

T 
Ca  1070  FDR  1=0  TO  5: LOCATE  5+1, 

33: PRINT  CHR* (222) ;: NEXT 
DL  1112  RESTORE  11 13: FOR  1=0  TO 

2:N*(I)="":F0R  J=0  TO  19 

:READ  A:N$(I)=N*(I)+CHR* 

(A) :NEXT  J, I 
GA  1113  DATA  32,32,219,32,220,32 

, 220, 32, 222, 32, 32, 220, 32 

,  220,  220,  32,  254,  32,  254,  3 

2, 222, 32, 219, 32, 32, 220, 2 

20,32,32,32,220 


LL  1114  DATA  32,254,32,219,32,25 
4,32,220,32,32,32,219,32 
, 32, 32, 32, 32, 219, 32, 32, 3 
2,32,32,219,32,32,32,32, 

32 

CI  2218  COLOR  10, 2: y=F*5+4: LOCAT 
E  21,YsPRINT  CHR$(201)CH 
R* ( 187) : LOCATE  22, Y: PRIN 
T  STRING* (2, 186): LOCATE 
23, Y: PRINT  CHR* (200) CHR* 
(188) 

II  3070  PRINT  CHR*  (205)  CHR*  (187) 
CD*CL*CHR* ( 1B6) NL*CD*CHR 
* ( 1B6) CD*CL*CHR* (200) CHR 
*(205) 

The  article  states  that  the  Atari 
version  (Program  2)  will  work  on 
an  Atari  400.  This  is  true  only  if  the 
400  has  memory  expansion. 

Atari  Wari 

There  is  an  error  in  the  Atari  ver- 
sion of  this  game  from  the  February 
issue  (Program  6,  p.  70),  and  in  the 
WARLFEB  program  on  the  COM- 
PUTE! Disk  for  January-March.  Line 
840  should  end  with  THEN  970 
rather  than  THEN  950.  As  listed, 
the  program  will  crash  with  an 
ERROR  16  (RETURN  without  GO- 
SUB)  after  the  maximum  number  of 
moves  in  a  limited  game.  No  prob- 
lem occurs  in  an  unlimited  game. 
Thanks  to  Frank  Walters  for  point- 
ing out  this  correction, 

SpeedView 

This  80-column  preview  enhance- 
ment for  SpeedScript  (November 
1986,  p.  76)  should  not  be  confused 
with  the  '^SPEEDVIEW"  Speed- 
Script  preview  enhancement  re- 
leased earlier  by  Upstart 
Publishing,  P.O.  Box  22022, 
Greensboro,  NC  27420.  The  latter 
program  is  a  part  of  Upstart  Pub- 
lishing's  SPEEDMATE  customizer 
program  for  SpeedScript.  @ 
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Synthesis 


Hang  on  to  your  hats,  music  enthusi- 
asts— this  program  turns  the  Commo- 
dore 64  into  an  impressive  music 
synthesizer  with  full  control  over  the 
64'$  multifaceted  sound  chip.  Begin- 
ners and  experts  alike  can  have  fun 
playing  music  and  trying  out  different 
sounds  with  this  program.  And  if 
you're  already  familiar  with  the  Si's 
sound  capabilities,  you'll  find  "Syn- 
thesis" a  powerful  tool  for  experi- 
menting with  electronic  music 
sounds.  The  program  works  with 
either  disk  or  tape  and  requires  no 
extra  equipment. 


When  you  got  your  Commodore  64 
or  128,  you  may  have  heard  that  its 
SID  (Sound  Interface  Device)  chip 
is  one  of  the  best  sound  and  music 
devices  in  any  personal  computer. 
That's  true,  but  programming  the 
SID  chip  can  be  a  complex  business, 
requiring  several  POKEs  to  produce 
just  one  sound.  "Synthesis"  un- 
locks the  full  potential  of  the  64's 
sound-maker,  providing  you  the 
equivalent  of  a  sophisticated  elec- 
tronic music  synthesizer. 

Synthesis  turns  the  64's  key- 
board into  a  musical  keyboard,  so 
you  can  play  the  synthesizer  simply 
by  pressing  on  the  computer's  keys. 
The  program  also  provides  a  conven- 
ient, full-featured  editor  for  design- 
ing your  own  sounds  and  for 
experimenting.  Once  you  find  a 
sound  that  you  like,  it  can  be  saved 
to  disk  or  tape  for  future  use  or 
revision.  In  this  way  you  can  build  a 
complete  library  of  instrument 
voices  and  sound  effects. 


Don  Monoghan 


Even  if  you  don't  know  any- 
thing about  programming  the  SID 
chip,  you  can  have  fun  with  this 
program  immediately.  This  article 
includes  36  preset  patches  (sound 
settings),  ranging  from  convention- 
al musical  instruments  like  the  flute 
and  cello  to  far-out  electronic 
sounds  such  as  space  bass,  percola- 
tor, and  metallica. 

A  Synthesizer  And 
36  Voices 

This  article  includes  two  programs. 
Program  1  is  the  synthesizer  and 
sound  editor.  Program  2  is  not  actu- 
ally a  program,  but  a  data  file  of  36 
different  synthesizer  voices.  While 
it's  not  absolutely  necessary  to  type 
in  Program  2,  you'll  probably  want 
to  have  it  as  a  demonstration  of  the 
wide  capabilities  of  Synthesis  and 
the  SID  chip. 

Both  programs  must  be  en- 
tered with  the  "MLX"  machine  lan- 
guage entry  program  found 
elsewhere  in  this  issue.  Follow  the 
MLX  instructions  carefully.  If  you 
are  using  a  cassette  drive,  you'll 
want  to  save  Program  2  immediate- 
ly after  Program  1  on  the  same  tape. 
Here  are  the  addresses  you  need  to 
type  the  programs  in  with  MLX; 
Program  1.  SYNTHESIS 

Starting  address;     OSOl 
Ending  address;      1C37 

Program  2.  VOICES 

Starting  address:     1C38 
Ending  address;      23E2 

Although  it's  written  in  ma- 
chine language,  Synthesis  loads 
and  runs  the  same  way  a  BASIC 
program  does.  Load  it  from  disk  or 


UsvptarM 

Ring 
Sync 
Filter 


Dec  jy 

Sustain 

Release 


Filter  Pitch 
Resonance 


II     til 


E=Exit 
«=Clear 


"Synthesis"  turns  the  Commodore  64 
into  an  impressive  musical  synthesizer, 
and  offers  full  control  of  the  sound  chip, 

tape,  type  RUN,  and  press  RE- 
TURN. Do  not  try  to  start  it  with  a 
SYS  command. 

Quick  Demo 

We'll  describe  all  of  the  synthesiz- 
er's functions  fully,  but  for  those 
who  can't  wait  to  try  it  out,  here's  a 
quick  demonstration.  After  typing 
and  saving  Programs  1  and  2,  load 
and  run  Program  1.  Synthesis  puts 
you  in  the  file  editor  screen.  The  top 
portion  of  the  screen  contains 
prompts  that  show  you  which  keys 
to  press  for  various  options.  The 
remainder  of  the  screen  is  taken  up 
with  blank  slots  which  will  be  filled 
in  after  you  load  a  voice  file.  (Pro- 
gram 2  is  a  sample  voice  file.) 

Let's  begin  by  playing  the  syn- 
thesizer. From  the  main  screen, 
press  the  (7  function  key:  Synthesis 
displays  the  synthesizer  screen.  At 
the  bottom  of  the  screen  is  a  musi- 
cal keyboard  display  that  indicates 
which  of  the  computer's  keys  act  as 
synthesizer  keys.  Play  the  synthe- 
sizer using  these  keys.  (If  you  don't 
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hear  any  sound,  turn  up  the  volume 

on  your  TV  or  monitor.)  This  is  the 
default  voice^ — the  one  that  Synthe- 
sis uses  if  you  haven't  loaded  or 
created  a  custom  voice. 

When  youVe  finished  playing, 
press  E  to  exit  the  synthesizer  and 
return  to  the  file  editor.  Now  let's 
load  a  voice  file.  Press  L;  then  type 
in  the  filename  when  prompted.  If 
you  saved  Program  2  with  the 
name  VOICES,  type  VOICES  and 
press  RETURN,  Synthesis  then  asks 
whether  you  wish  to  load  from  disk 
(press  D)  or  tape  (press  T).  After  the 
file  has  loaded.  Synthesis  prompts 
you  to  press  the  asterisk  (*)  key  to 
return  to  the  file  editor. 

When  you  return  to  the  main 
screen,  notice  that  it  is  now  filled 
with  the  names  of  36  different  syn- 
thesizer voices.  All  of  these  voices 
have  been  loaded  in  memory  and 
are  available  for  your  use.  To  select 
a  voice,  press  the  fl  key.  Synthesis 
displays  a  cursor  (>)  in  front  of  the 
first  voice  name.  Use  the  cursor 
keys  to  move  around  the  screen 
until  you  find  a  voice  that  sounds 
interesting.  To  choose  that  voice, 
press  RETURN. 

The  voice  which  you  selected 
has  now  been  loaded  into  the  syn- 
thesizer. To  hear  what  it  sounds 
like,  press  i7  to  go  to  the  synthesiz- 
er; then  press  any  of  the  synthesizer 
keys.  The  synthesizer  uses  the  se- 
lected voice  in  place  of  the  default 
voice  which  you  heard  earlier. 
When  you've  heard  enough,  press 
E  to  return  to  the  file  editor;  then 
press  f  1  to  select  one  of  the  other  35 
voices.  There's  a  wide  variety  to 
choose  from. 

File  Editor 

The  program  begins  by  displaying 
the  file  editor  screen.  Here  is  where 
you  select  existing  voices,  name 
new  voices  that  you  have  created, 
and  save  or  load  completed  files.  A 
voice  file  can  contain  as  many  as  36 
individual  voices. 

The  file  editor  screen  offers  six 
options,  which  you  select  by  press- 
ing the  keys  indicated  on  the  screen. 
A  list  of  editor  options  follows. 

fl.  The  fl  function  key  loads  a  voice 
from  the  file  into  the  synthesizer. 
Use  the  cursor  keys  to  move  the 
pointer  to  the  desired  voice,  and 
press  RETURN.  Synthesis  loads 
that    voice    into    the    synthesizer; 


when  you  go  to  the  synthesizer 
screen,  that  voice  is  available  for 
your  use. 

f3.  This  key  takes  the  voice  current- 
ly in  the  synthesizer  and  stores  it  in 
the  voice  file.  If  you  have  just  creat- 
ed a  new  voice  and  wish  to  save  it, 
you  must  store  the  voice  with  this 
function  before  saving  the  file  (the 
save  function  is  explained  below). 
f5.  The  f5  key  allows  you  to  change 
the  name  of  the  current  voice.  Enter 
a  name  when  prompted  and  press 
RETURN.  The  voice  name  must  be 
no  more  than  12  characters  in 
length.  To  rename  an  existing 
voice,  first  select  it  with  fl;  then 
press  f5  to  rename  it. 
f7.  Press  f  7  to  exit  the  file  editor  and 
go  to  the  synthesizer  screen. 
L.  Loads  a  voice  file  from  tape  or 
disk.  The  program  prompts  you  to 
enter  a  filename  and  then  asks 
whether  to  load  from  disk  or  tape. 
Press  C  at  the  second  prompt  to 
cancel  the  operation. 
S.  Saves  the  voice  file  to  tape  or 
disk.  This  saves  all  of  the  voices 
which  appear  in  the  voice  list  on  the 
file  editor  screen  (voices  which 
have  been  loaded  with  L  or  stored 
by  pressing  f3).  The  current  voice  in 
the  synthesizer  will  not  be  saved 
unless  you  have  previously  stored  it 
in  the  file. 

Synthesizer  Functions 

The  synthesizer  screen  serves  two 
different  purposes:  playing  music 
and  creating  new  voices. 

By  pressing  the  keys  indicated 
in  the  musical  keyboard  display, 
you  can  play  notes  using  the  cur- 
rent voice  parameters.  The  musical 
keyboard  configuration  appears  at 
the  bottom  of  the  screen.  Press  the 
E  key  to  return  to  the  file  editor 
screen. 

The  synthesizer  screen  also  al- 
lows you  to  change  the  current 
voice  characteristics  to  create  a  new 
voice  or  modify  the  current  one. 
The  voice  characteristics  appear  in 
the  upper  portion  of  the  screen. 

Playing  the  synthesizer  re- 
quires no  further  explanation.  To 
change  a  voice  characteristic,  use 
the  cursor  keys  to  move  the  pointer 
to  the  parameter  you  wish  to 
change;  then  press  the  plus  key  (  +  ) 
or  minus  key  (  — )  to  increase  or 
decrease  the  current  value. 


When  you're  using  this  feature 

of  Synthesis,  it  will  help  to  have  a 
basic  understanding  of  how  the  SID 
chip  works— a  subject  which  is  be- 
yond the  scope  of  this  article.  The 
user's  manual  for  your  computer 
explains  more  about  the  SID  chip, 
and  many  other  references  are 
available.  If  you  don't  have  a  com- 
plete reference,  don't  be  afraid  to 
experiment:  You  can't  hurt  the 
computer  in  any  way  by  trying  out 
different  settings  (although  certain 
combinations  may  result  in  no 
sound  or  very  peculiar  sounds).  If 
you  produce  an  unwanted  sound, 
or  simply  want  to  discard  the  cur- 
rent voice,  press  the  asterisk  key  (*); 
Synthesis  resets  all  three  voices  to 
the  default  parameters. 

Certain  features  of  this  synthe- 
sizer, such  as  sample  and  hold,  are 
not  features  of  the  SID  chip  itself, 
but  will  be  familiar  to  those  who 
have  a  general  knowledge  of  elec- 
tronic music  synthesis.  Following  is 
an  explanation  of  what  each  voice 
parameter  controls. 

Voice  Parameters 

Waveform*  This  parameter  con- 
trols the  basic  tonal  characteristics 
of  each  of  the  synthesizer's  three 
voices.  You  may  choose  any  of  the 
basic  waveforms  supplied  by  the 
SID  chip:  triangle,  sawtooth,  pulse, 
and  noise  (random).  Note  that  each 
of  the  three  voices  can  have  a  dif- 
ferent waveform. 

Pulse  width.  This  parameter  con- 
trols the  symmetry  of  the  pulse 
waveform.  Note  that  pulse  width  is 
relevant  only  if  you  have  selected  a 
pulse  waveform;  if  you  are  using 
some  other  waveform,  changing 
the  pulse  width  has  no  effect.  The 
range  for  this  parameter  is  from 
0-8,  with  0  creating  a  very  narrow 
pulse  and  8  creating  a  square  wave. 
Pulse  mod.  The  pulse  mod  parame- 
ter allows  you  to  use  voice  3  to 
modulate  the  pulse  width  (note  that 
pulse  width  is  meaningful  only 
when  a  pulse  waveform  is  in  use). 
A  constantly  changing  pulse  width 
can  create  very  interesting  sounds. 
You  may  choose  as  the  source  of 
modulation  either  the  envelope  of 
voice  3  (EN V)  or  the  output  of  voice 
3  (LFO).  LFO  stands  for  loiv  fre- 
quency oscillator,  a  source  which 
changes  with  a  comparatively  low 
frequency   (over'  a   comparatively 
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long  period  of  time).  If  you  choose 
ENV  as  the  source  of  modulation, 
the  modulation  is  controlled  by 
voice  3's  current  ADSR  parameters 
(see  below). 

Ring.  This  parameter  enables  or 
disables  ring  modulation,  a  special 
SID  chip  effect  which  combines  the 
frequencies  of  two  voices  in  a  way 
which  produces  mathematically  in- 
congruous harmonics.  If  that  de- 
scription sounds  baffling,  select  the 
steel  drum  voice  from  the  VOICES 
file  and  play  some  notes  on  the 
synthesizer.  The  ringing,  metallic 
tones  result  from  ring  modulation. 
Ring  modulation  always  involves 
two  voices.  If  you  select  ring  mod 
for  voice  1,  then  its  output  is  ring 
modulated  with  the  output  of  voice 
3.  Voice  2  is  ring  modulated  by 
voice  1,  and  voice  3  is  ring  modulat- 
ed by  voice  2, 

Sync.  This  parameter  enables  or 
disables  synchronization,  another 
special  effect  involving  two  voices. 
Synchronization  combines  the  fre- 
quency output  of  two  voices  to  cre- 
ate a  more  complex  sound  than 
would  be  created  with  either  voice 
alone.  To  hear  examples  of  syn- 
chronization, select  space  bass  or 
sync  szveep  from  the  VOICES  file. 
The  modulation  order  for  synchro- 
nization is  the  same  as  for  ring 
modulation.  Voice  1  is  synchro- 
nized with  voice  3,  voice  2  is  syn- 
chronized with  voice  1,  and  voice  3 
is  synchronized  with  voice  2. 
Filtered.  This  parameter  determines 
whether  a  voice  is  routed  through 
the  SID  chip's  built-in  filter.  The 
filter  allows  you  to  suppress  the  out- 
put of  the  selected  voice  within  a 
defined  frequency  range. 
Octave.  The  SID  chip  has  a  fre- 
quency range  of  seven  full  octaves. 
This  function  lets  you  set  any  voice 
to  a  desired  octave.  If  you  set  voice 
3's  octave  to  0,  that  voice  goes  into 
LFO  (low-frequency  oscillator) 
mode.  LFO  mode  is  used  in  cases 
where  you  want  to  use  voice  3's 
output  to  modulate  some  character- 
istic of  a  second  voice.  When  you 
set  a  voice  to  LFO  mode,  that  voice 
produces  no  audible  output  itself; 
instead,  its  output  is  rerouted  for 
another  purpose. 

Interval.  The  interval  parameter 
causes  a  voice's  frequency  to  play  at 
a   certain   number  of  half-steps 


above  the  note  being  played  on  the 
musical  keyboard.  For  instance,  if 
you  set  voice  Vs  interval  to  7  and 
play  an  F#  note  on  the  musical 
keyboard.  Synthesis  plays  a  C# 
note.  If  you  set  the  voice  1  interval 
to  0,  the  voice  2  interval  to  4,  and 
the  voice  3  interval  to  7,  you  will 
hear  a  complete  major  chord.  The 
major  triad  voice  in  the  VOICES  file 
demonstrates  one  use  of  the  inter- 
val parameter. 

Pitch.  The  pitch  parameter  allows 
you  to  detune  the  selected  voice  by 
raising  or  lowering  its  pitch  slightly, 
within  the  range  +2  to  -2.  The 
idea  behind  detuning  is  to  make 
two  (or  more)  voices  play  the  same 
note,  but  set  one  voice  just  slightly 
off  key  by  raising  or  lowering  its 
pitch.  The  results  sound  more  inter- 
esting and  ''natural"  than  if  both 
voices  were  playing  in  perfect  uni- 
son. Listen  to  the  honky  tonk  voice 
in  the  VOICES  file  for  a  demonstra- 
tion of  detuning. 

Pitch  mod*  Pitch  modulation  is 
useful  for  creating  vibrato  or  other 
pitch-based  effects.  Again,  this  pa- 
rameter always  involves  two  voices. 
Voice  3  provides  a  modulating  sig- 
nal which  you  can  use  to  affect  the 
output  of  either  voice  1  or  voice  2. 
Voice  3  may  be  in  LFO,  ENV,  or 
S/H  (sample  and  hold)  mode.  Sam- 
ple and  hold  effects  are  explained 
below. 

Track.  This  parameter  determines 
whether  or  not  the  designated  voice 
follows  the  synthesizer  keyboard.  If 
tracking  is  on  for  a  given  voice,  its 
frequency  is  determined  by  which 
musical  key  you  press.  If  tracking  is 
off,  the  keyboard  has  no  effect  on 
its  pitch:  Instead,  that  voice's  pitch 
is  controlled  solely  by  its  octave, 
interval,  and  pitch  parameters.  Un- 
tr  a  eking  a  voice  allows  you  to  use 
its  output  as  an  LFO  or  to  create  a 
drone  voice  which  plays  at  a  con- 
stant frequency.  The  bagpipe  voice 
in  the  VOICES  file  un tracks  one 
voice  for  use  as  a  drone. 
Attack.  The  next  four  parameters 
(attack,  decay,  sustain,  and  release) 
are  usually  abbreviated  with  the  ac- 
ronym ADSR,  Together,  they  de- 
fine the  envelope,  or  characteristic 
shape  of  the  final  output  for  a  given 
voice.  The  attack  parameter  con- 
trols the  rate  at  which,  after  a  musi- 
cal key  is  pressed,  the  level  of  the 


designated  voice  rises  to  its  maxi- 
mum volume. 

Decay.  After  the  attack  has  reached 
its  peak  (see  above),  the  decay  pa- 
rameter controls  the  rate  at  which 
the  output  of  the  designated  voice 
drops  to  the  sustain  level. 

Sustain.  This  parameter  controls 
the  volume  level  at  which  the  out- 
put of  the  designated  voice  remains 
until  you  release  a  key  on  the  musi- 
cal keyboard. 

Release.  After  you've  released  a 
key,  this  parameter  controls  the  rate 
at  which  the  output  of  the  designat- 
ed voice  fades  away  into  silence. 

Mod  level.  Some  of  the  special  ef- 
fects available  in  Synthesis  involve 
two  voices:  One  voice  is  used  to 
modulate  (change)  the  output  of  a 
second  voice.  For  pitch  mod,  pulse 
mod,  sample  and  hold  (S/H),  and 
filter  mod,  the  source  of  the  modu- 
lating signal  is  either  the  ADSR  en- 
velope of  voice  3  or  the  waveform 
output  of  voice  3.  The  mod  level 
parameter  controls  the  intensity  of 
modulation  in  such  cases.  If  you  are 
using  voice  3  to  create  vibrato,  for 
instance,  the  mod  level  can  change 
the  vibrato  effect  from  a  slight  wa- 
vering in  pitch  to  a  large,  multi- 
octave  sweep.  The  maximum  mod 
level  is  9;  at  this  extreme  level,  you 
may  exceed  the  range  for  other  pa- 
rameters, creating  a  glitch  in  the 
sound, 

S/H  rate.  The  acronym  S/H  stands 
for  sample  and  hold,  another  special 
electronic  sound  effect.  This  feature 
samples  (looks  at)  the  output  of 
voice  3,  holds  the  sampled  level, 
then  applies  it  to  the  pitch  of  any 
voice  for  which  S/H  modulation  is 
selected.  The  modulated  voice  is 
then  played  automatically,  just  as  if 
you  had  pressed  the  key  again.  In 
stead  of  a  constantly  changing 
pitch,  as  with  LFO  modulation, 
S/H  modulation  occurs  in  discrete 
steps.  If  you  set  the  LFO  mod  level 
to  0,  the  pitch  of  the  modulated 
voice  is  not  changed,  but  the  voice 
is  still  automatically  rekeyed.  For 
examples  of  S/H  modulation,  listen 
to  the  staircase,  random,  and  mando 
Un  voices  in  the  VOICES  file. 

Filter  pitch.  This  parameter  sets 
the  resonant  frequency  of  the  filter 

Resonance.  The  resonance  param 

eter   controls   the   strength,    or 
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amount  of  emphasis,  which  the  fil- 
ter has. 

Mode:  This  characteristic  selects 
the  type  of  filter  to  be  used.  A  band- 
pass filter  (BP)  causes  the  filter  to 
pass  through,  or  admit,  only  fre- 
quencies above  the  designated  filter 
pitch;  frequencies  above  the  cutoff 
point  are  suppressed.  A  high-pass 
filter  (HP)  passes  frequencies  above 
the  cutoff  point  and  suppresses 
lov^er  frequencies.  Careful  filtering 
can  be  very  useful  in  simulating  the 
sounds  of  natural  instruments.  How- 
ever, since  the  filter  is  subtractive — 
that  is,  it  takes  away  part  of  the 
sound  you  would  otherwise  hear — 
it  tends  to  make  the  final  output 
somewhat  quieter  than  normal. 
Voice  3.  The  voice  3  parameter  en- 
ables or  disables  the  final  output  of 
voice  3.  If  you  are  using  voice  3  to 
modulate  another  voice,  you  will 
normally  want  to  disable  its  output 
with  this  feature.  If  you  don't,  you 
may  hear  unwanted  clicks  during 
each  envelope  cycle  for  voice  3.  If 
you  wish  to  disable  the  output  of 
voice  1  or  voice  2,  set  all  of  the 
ADSR  parameters  for  that  voice  to 
zero. 

Please  refer  to  the  "MIX"  article  elsewhere  in 
this  Issue  before  entering  the  following 
programs. 

Program  1:  Synthesis 


0801  : 

0B 

08 

00 

0809: 

31 

00 

00 

0811: 

18 

6A 

E0 

0819 

A0 

00 

84 

0821 

26 

2A 

18 

0829- 

6A 

A6 

14 

0831 

40 

B9 

CD 

0839 

G8 

14 

8D 

0841 

8D 

64 

08 

0849 

08 

BD 

24 

0851 

02 

B9 

EE 

0859 

40 

7D 

IB 

0861 

85 

45 

B9 

0369 

20 

22 

0C 

0871 

:A5 

46 

99 

0879 

40 

29 

FE 

0881 

:D4 

60 

A0 

0889 

:FF 

C8 

C0 

0891 

:28 

E6 

29 

0899 

:FF 

A2 

02 

08A1 

:26 

85 

26 

08A9 

:48 

A9 

CD 

08B1 

:06 

A9 

E8 

08B9 

:14 

20 

9D 

08C1 

:20 

9D 

08 

08C9 

r9D 

08 

20 

08D1 

:A9 

20 

20 

08D9 

;60 

SD 

51 

08E1 

:A9 

00 

8D 

08E9 

:A2 

11 

18 

08F1 

:02 

CA 

F0 

08F9 

:53 

02 

38 

0901 

:53 

02 

38 

0909 

;09 

30 

99 

0911 

:6a 

AA 

60 

0919 

ilB 

09 

20 

00  9E 
00  4C 

00  D0 
2A  18 
CA  D0 
A4  2A 
14  8D 
60  08 
B9  D2 
40  F0 
17  65 
40  A8 
F0  lA 
A5  45 

01  D4 
20  22 
00  Bl 
09  D0 
A6  29 
60  A9 
90  02 
85  26 
85  26 
08  C0 
C0  02 
9D  08 
D2  FF 

02  BA 

53  02 
2E  51 
11  2E 
E9  0A 
B0  E6 

54  02 
4A  4A 
DA  08 


32  30 
E0  0E 
02  A9 
90  04 
F9  66 
60  BC 
5F  08 
B9  D7 
14  8D 

08  AC 
42  7D 
B9  D4 
85  46 
99  00 
60  BD 
0C  99 
26  20 
F6  60 
18  20 

09  18 
E6  27 
68  AS 
D0  16 

01  F0 
F0  06 
4C  83 
88  D0 
48  A0 
8D  50 

02  2E 
53  02 
30  EB 
AD  53 
88  10 
4A  4A 
m    03 


36  EC 
00  B3 
00  C5 
2 A  El 
2A  E3 
IE  4F 
B9  7E 
14  5  5 
65  35 
8D  E3 
18  67 
18  3E 
60  9F 
D4  5  3 
0C  D8 
04  4E 
02  61 
A4  3C 
F0  D9 
65  9F 
60  4E 
10  8E 
F0  36 
0D  09 
20  56 
08  09 
FA  AE 
02  80 
02  96 
50  B4 
AD  55 
8D  50 
02  E5 
D0  47 
4C  0F 
20  95 


0921: 

0929: 

0931  : 

0939: 

0941: 

0949: 

0951: 

0959: 

0961: 

0969: 

0971: 

0979: 

0981: 

0989: 

0991  : 

0999: 

09A1  : 

09A9: 

0981: 

09B9: 

09C1: 

09C9  : 

09D1: 

09D9: 

09E1: 

09E9: 

09F1: 

09F9: 

0A01: 

0A09: 

0A11  : 

0A19: 

0A21  : 

0A29: 

0A31  : 

0A39: 

0A41: 

0A49: 

0A51  : 

0A59: 

0A61: 

0A69: 

0A71: 

0A79: 

0A81: 

0A89: 

0A91: 

0A99: 

0AA1  : 

0AA9: 

0AB1: 

0AB9  : 

0AC1: 

0AC9: 

0AD1: 

0AD9: 

0AE1: 

0AE9  : 

0AF1: 

0AF9: 

0B01: 

0B09: 

0B11: 

0B19: 

0B21: 

0B29: 

0B31: 

0B39: 

0B41; 

0B49j 

0B51: 

0B59; 

0B61 

0B69 

0B71 

0B79 

0B8i 

0B89 

0B91 

0B99 

0BA1 

0BA9 


Dl  08 
20  Dl 
20  DA 
A0  00 
D2  FF 
48  A0 
D2  FF 
26  A9 
00  84 
26  F0 
F6  60 
02  A4 
FF  A9 
:FF  A4 
:0C  C0 
:02  A0 
:F0  C9 
:D0  17 
:D0  09 
;16  00 
:11  84 
rD2  FF 
J  90  A7 
:38  E9 
:6A  90 
:A4  67 
:35  90 
:1C  85 
:A0  00 
:C8  09 
:00  02 
r7F  38 
:O0  09 
:B0  F4 
:0C  00 
:8D  86 
:29  18 
:20  02 
:A9  0D 
:16  85 
:C7  A9 
:85  2A 
:08  20 
iFl  20 
:CA  10 
:40  20 
:90  08 
:CA  10 
:40  29 
:F5  20 
:29  02 
:F3  20 
:A9  08 
:86  02 
:D1  08 
:A0  03 
:D2  FF 
:BD  IB 
:F7  20 
:A9  16 
:F0  18 
:11  20 
:20  90 
:9D  08 
:20  90 
:21  40 
:20  90 
:08  CA 
:00  8D 
:20  14 
;08  BO 
:09  CA 
:2A  40 
:F6  20 
:0F  20 
:16  20 
:02  AD 
:09  A0 
:40  09 
:08  AD 
:00  80 
:08  AD 


CB  20 

08  A9 
08  A0 
F0  E7 
C8  C0 
02  20 
A0  02 
14  85 
C7  18 
06  20 
A9  06 
67  A6 
3E  20 
67  A6 
06  F0 
lA  00 
11  00 
A2  05 
CA  E0 
06  C9 
67  86 
A9  20 
A9  IB 
05  AA 
02  E6 
C0  06 
02  E6 
8F  A9 
20  CF 
00  00 
AA  C9 
E9  30 
8A  29 
8A  99 
DC  4C 
02  A2 
20  F0 
FF  E8 
85  28 
27  A9 
00  8D 
A5  2A 
90  08 
83  08 
E3  20 
IB  09 
BD  12 
F7  20 
04  20 
90  08 
2A  20 
90  08 
CA  10 
20  90 
BD  18 
20  01 
CA  10 
40  20 
90  08 

85  27 
20  9D 
9D  08 
08  C0 
20  83 
08  A9 
20  A9 

08  BD 
10  F7 

86  02 

09  CA 
27  40 

10  F5 
18  20 
90  08 
IB  09 
92  08 
33  40 
20  20 
30  20 
32  40 
86  02 
20  40 


00 
04 


08 
04 


18 
SB 
8E 


3D  09  A0 

ID  4C  D2 

02  20  01 
B9  54  02 

03  00  F5 

01  08  68 
4C  01 
27  A2 
20  F0  FF 

02  FF  C8 
85  C?  80 
68  18  20 
D2  FF  20 
68  C9  ID 

04  A0  06 
24  C9  90 
09  E8  E0 

13  C9 

D0  02 

0D  00  BA 

68  A9  90 

20  D2  FF 

85  ac  A5 
A9  CE  18 
8C  CA  10 
F0  07 
8C  85 
38  85 
FF  99  00 
F5  A0  00 
0D  F0  IC 
B0  04  A9 
7F  38  E9 
00  40  C8 
F8  09  A9 
00  A0  00 
FF  BD  00 
E0  0C  00 
20  90  08 
A9  85  26 

86  02  A9 
3D  0C  40 
18  06 
A9  A9 
90  08  BD 
CA  10  F7 
40  20  A9 
90  08  BD 
A9  08  CA 
BD  0C  40 
A9  08  CA 
BD  15  40 
F7  A9  06 
08  A0  04 
40  20  0F 
08  A9 
ES  20 
IB  09  CA 
A9  FA  85 
BD  IE  40 
08  C0  01 
C0  02  F0 

03  F0  03 
08  CA  10 
16  85  27 
08  CA  10 
24  40  20 
20  90  08 

40 


2A 
85 


ID 
90 


BD  27 
10  F6 


29  0F  20 

20  90  08 

14  09  CA 

BD  2A  40 

CA  10  F5 

A9  06  80 

09  30  20 

94  08  AD 

49  09  20 

20  74  12 

A0  00  20 

20  31  09 


03 

8B 

FF 

IB 

08 

51 

20 

7B 

60 

89 

20 

89 

85 

40 

A0 

30 

Bl 

85 

00 

86 

86 

99 

F0 

El 

E4 

83 

00 

91 

00 

29 

F0 

99 

17 

92 

91 

86 

A2 

OF 

F0 

7A 

20 

18 

18 

E0 

68 

0F 

69 

EF 

F6 

A2 

69 

DO 

A9 

AC 

60 

5D 

02 

CE 

B9 

BE 

29 

25 

20 

44 

5B 

CF 

C0 

11 

06 

25 

84 

27 

40 

3A 

F5 

7F 

A9 

AD 

85 

8E 

10 

3C 

00 

8D 

90 

S3 

26 

A4 

0F 

AC 

20 

60  ' 

08 

A6 

0C 

44 

10 

B5 

IB 

0A 

10 

35 

20 

45 

80 

07 

20 

99 

0C 

B6 

20 

61 

08 

AA 

10 

50 

26 

07 

AS 

IB 

F0 

A9 

0A 

DD 

20 

AD 

D4 

9C 

BD 

D9 

F7 

02 

A9 

64 

A9 

84 

18 

CE 

90 

6F 

IB 

A4 
19 

10  0C 
29  05 
A0  2E 
86  7C 
49  01 
34  A6 
90  51 
A9  0A 
92  18 
A0  51 


0BB1: 

IF 

20 

94 

08 

0BB9: 

A9 

08 

A0 

0D 

0BC1: 

30 

40 

20 

IB 

0BC9: 

94 

08 

AD 

31 

0BD1. 

27 

A0 

27 

84 

0809: 

10 

25 

2A 

00 

0BE1 

9F 

08 

A9 

20 

0BE9 

A9 

06 

20 

9F 

0BF1 

02 

FF 

C8 

C0 

0BF9 

0D 

20 

92 

08 

0C01 

29 

80 

F0 

04 

0C09 

A9 

04 

20 

A9 

0Cli 

:A0 

00 

18 

6A 

0C19 

03 

D0 

FA 

98 

0C21 

tFF 

A0 

0E 

E0 

0C29 

07 

E0 

02 

00 

0C31 

:A0 

14 

84 

27 

0C39 

:A0 

00 

Bl 

26 

0C41 

:FF 

C8 

00 

F6 

0C49 

I  20 

37 

0A 

A0 

0C51 

0F 

40 

99 

03 

0C59 

99 

05 

D4 

BO 

0C61 

04 

98 

18 

69 

0C69 

E6 

A2 

01 

SO 

0C71 

04 

CA 

10 

F7 

0C79 

0A 

0A 

0A 

0A 

0C81 

AE 

15 

40 

F0 

0C89 

16 

40 

F0 

02 

0C91 

40 

F0 

02 

09 

0C99 

17 

04 

18 

AD 

0CA1 

8D 

18 

D4 

AD 

0CA9 

40 

20 

A4 

00 

0CB1 

86 

6D 

AD 

IB 

0CB9 

20 

A4 

0D 

85 

0CC1 

6E 

CE 

Ci 

02 

0CC9 

40 

8D 

CI 

02 

0CO1 

85 

69 

F0 

02 

0CD9 

•BD 

12 

40 

F0 

0CE1 

09 

AD 

IC 

04 

0CE9 

Fl 

0G 

AD 

IB 

0CF1 

20 

OB 

00 

CA 

0CF9 

40 

F0 

IC 

C9 

0D01 

;34 

40 

AD 

IB 

0009 

:AC 

33 

40 

AD 

0D11 

:09 

F0 

04 

6A 

0D19 

6D 

2D 

40 

8D 

0021 

:SA 

AC 

SD 

02 

0D29 

tS5 

F7 

BD 

00 

0D31 

:0A 

A2 

02 

20 

0039 

:FA 

30 

02 

85 

0D41 

:41 

18 

84 

42 

0049 

•21 

40 

F0 

22 

0D51 

:F0 

24 

D0 

0F 

0059 

:A5 

62 

85 

FA 

0D61 

:18 

90 

08 

A5 

0069 

:63 

A4 

6E 

20 

0071 

:0S 

BD 

21 

40 

0D79 

:D0 

05 

20 

77 

0081 

:6B 

30 

06 

BO 

0089 

:08 

CA 

10 

B3 

0D91 

:A5 

6B 

10 

03 

0099 

:A4 

0C 

18 

4C 

0DA1 

:00 

00 

00 

18 

0OA9 

:2A 

38 

A9 

7F 

0OB1 

;A0 

00 

90 

01 

0DB9 

:11 

08 

18 

C0 

0DC1 

:45 

85 

45 

A5 

0DC9 

:46 

60 

38 

85 

0001 

:80 

85 

45 

A5 

0OD9 

:46 

60 

80 

10 

0OE1 

:11 

02 

88 

30 

0OE9 

:02 

90 

F7 

EE 

0DF1 

:20 

22 

0C 

99 

0DF9 

:11 

02 

7D 

0F 

0E01 

:60 

A9 

93 

20 

0E09 

:8D 

86 

02 

A9 

0E11 

:0C 

A2 

01 

20 

0E19 

:84 

3E 

A9 

3E 

0E21 

:31 

0C 

A2 

00 

0E29 

:86 

02 

A6 

3D 

0E31 

:0D 

A9 

20 

20 

0E39 

:B5 

F0 

01 

38 

AD  2F 

20  92 

09  A0 

40  85 
26  A0 

10  A9 
25  2A 
08  Bl 

06  D0 
C6  27 
A9  00 

08  60 
6A  38 

09  30 

01  00 

02  A0 
A0  F2 
F0  0A 
E6  27 

00  A2 
D4  BD 
2A  40 

07  A8 
2D  40 
18  AD 
85  2A 
02  09 

09  02 

01  05 
31  40 
IC  04 
85  61 
D4  AE 

63  84 

00  10 
A9  01 

85  6A 
16  C9 
AC  33 
04  AC 

10  E2 

01  D0 
D4  18 
IC  04 
C8  00 
16  D4 
F0  02 
14  85  6B 
77  08 

41  A2 
20  2F 
10  06 
C9  02 
A5  61 

64  85 
BB  00 

10  09 

08  50 
0C  40 
A9  00 
20  3E 
F0  FF 
A8  30 
E5  2A 
CB  84 
00  00 
FA  65 
80  A5 
46  E5 

02  A9 
0B  18 

11  02 
02  D4 
40  99 
D2  FF 
00  85 
9B  00 
20  02 

86  C7 
A4  3E 
02  FF 
60  A6 


40  20  3D 

08  AD  94 
IF  20  OE 
2A  E6  48 
00  A9  2E 

06  20  E6 
D0  05  79 

26  20  C7 
F6  A0  98 
A5  2A  B9 
F0  02  5D 
F0  0C  45 
CB  E9  02 
4C  02  44 
02  A0  21 
00  60  3D 
84  26  Al 
20  02  FC 

00  F2  70 
02  BD  06 

27  40  90 
99  06  81 
CA  10  24 
90  15  54 
30  40  40 
A9  00  23 
04  AE  38 
AE  17  BF 
2A  8D  04 

09  0F  FB 
AE  33  C0 

84  62  6C 
34  40  09 
64  86  81 
AD  32  71 

45  69  03 
A2  02  62 

01  F0  37 
40  4C  B9 
34  40  67 
AD  2F  F5 
09  AC  98 
90  06  DA 
18  C0  4E 
F8  18  A6 
A6  C5  2D 
09  80  9F 

10  59 
CA  10  BC 

02  A4  B2 
08  BD  42 
A5  6A  92 
00  0B  FA 
A4  60  A8 
FA  A5  DB 
20  69  E9 
A5  69  80 
0A  A5  F3 
20  7C  18 

85  6A  5A 
0E  4C  ED 
00  00  58 

07  85  D6 
29  7F  BD 
14  4C  0B 
0B  65  2C 

46  85  62 
45  E5  Fl 
FA  85  5C 
00  80  26 
60  10  BC 
B0  F2  FS 
18  AD  01 

03  D4  01 
A9  01  17 
C7  A0  AE 

86  3D  59 
FF  4C  B8 
E8  8E  E0 
20  9B  AB 
18  A5  B0 
F7  BA  28 


May  1<?87  COMPUTEI  65 


0E41 :A0 

00 

29  80  F0 

01 

C8 

84 

70 

1001:98 

10 

02 

A0 

03 

88 

98 

60 

58 

1361:A2 

38 

A0 

10 

20 

05 

FF 

90  A5 

0E49;B5 

SA 

29  7F  C9 

40 

F0 

EO 

IE 

1009 :BD 

0C 

40 

49 

04 

9D 

00 

40 

67 

1369:32 

A0 

36 

09 

04 

00 

02 

A0  30 

0E51tC9 

07 

F0  30  EA 

C9 

02 

00 

88 

10E1:60 

BO 

00 

40 

49 

02 

9D 

00 

00 

1371:00 

09 

05 

D0 

02 

A0 

11 

09  36 

0E59:03 

4C 

EE  0F  C9 

28 

D0 

04 

6D 

10E9:40 

60 

BD 

15 

40 

49 

04 

90 

18 

1379:08 

D0 

02 

A0 

17 

B9 

02 

13  5A 

0E61:18 

4C 

63  10  C9 

2B 

D0 

03 

A9 

10F1:15 

40 

60 

BD 

18 

40 

A4 

B5 

55 

1381:F0 

A7 

20 

02 

FF 

08 

00 

F5  F5  ' 

0E69:38 

B0 

P6  C9  31 

D0 

03 

40 

68 

10F9:O0 

09 

18 

C9 

54 

F0 

0B 

69 

4A 

1389:A9 

38 

85 

CI 

A9 

IC 

85 

02  EA 

0E71 :C8 

0E 

C9  0E  D0 

C6 

20 

F8 

6A 

1101 :0C 

00 

07 

38 

C9 

00 

F0 

02 

F3 

1391:A9 

01 

A2 

E2 

A0 

23 

20 

08  2A 

0E79:09 

A0 

00  84  C6 

68 

68 

A9 

DC 

1109:E9 

00 

90 

18 

40 

60 

BC 

IB 

70 

1399:FF 

B0 

OE 

A0 

00 

B9 

48 

14  5B 

0E81 :93 

4C 

D2  FF  20 
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Men  It  ComesTo  ReadingMusic, 
Most  Ifeople  DrawABfenk. 


If  you're  not  content  with  your  knowledge  of  music, 
Wenger  has  something  that  will  fill  in  the  blanks. 

It's  called  The  Music  ClassI^  An  exciting  new  5-part 
software  series  for  kids,  adults, 
beginners,  evenprofessionals. 

The  Music  Class  is  the  consum- 
mate music  teacher.  Its  simple  step- 
by-step  instructions  teach  everything 
from  the  basics  to  rhythm  to  note 
reading— all  at  your  own  speed. 
And  The  Music  Class  even  gives 
advice,  points  out  errors,  and  applauds  correct  answers. 

Fundamentals:  Make  sense  of  those  skinny  lines 
with  blobs  and  tails.  All  the  basics  from  note  reading  to 
rhythm.  $49. 

Rhythm:  What  is  the  real  difference  between  a  waltz 
and  a  polka,  ragtime  and  rock,  and  more.  A  comical  little 
guy  named  Mr.  Metro  Gnome  is  your  teacher.  $49. 

©1987.  Wenger  CoTp, 


Ear  Training:  How  to  hear  exacdy  what's 
happening  in  a  piece  of  music,  ^u'll  never  listen  to 
Bon  Jovi  or  Mancini  quite  the  same  way  again.  $49, 

Music  Symbols:  And  you  thought  they  were  called 
squiggles,  slashes,  and  dots.  Animated  graphics  and 
games  will  teach  you  up  to  80  musical  symbols.  $39. 

Note  Reading:  Know  the  difference  between  an 
E-Flat  eighth  note  and  a  B-Flat  quarter  note.  This  is 
where  you  learn  to  read  the  foreign  language  called 
music.  $39. 

Any  Apple  11  or  IIGS  with  64K  memory  can  run 
The  Music  Class. 

So  order  bv  calling  toll  free  1-800-843-1337.  In 
Hawaii  and  Alaska  call  collect  612-854-9554. 

blank  stare  into     inclVlUSlCLJd^ 

,  *       From  (he  Wenger  Music  Leartiing  Divmum,  Hvjiger  Corp. 

an  ear- to  -  ear  grin .      mi  Em  79th  street,  MmneapotL^,  Minnesota  55420. 


ShapeMaker 
For  Apple  II 


William  C,  Vergara 


Have  you  ever  wished  that  you  could 
enliven  your  programs  with  eye- 
catching title  pages  or  graphs  and 
charts  labeled  with  descriptive  infor- 
mation? Shape  tables  are  very  useful 
for  creating  such  effects  on  the  Apple 
IL  This  comprehensive  program  makes 
it  easy  to  create  and  edit  shape  tables 
for  a  variety  of  purposes.  It  runs  on 
any  Apple  Il-series  computer,  under 
either  ProDOS  or  DOS  33. 


Many  programs  can  be  enhanced 
by  presenting  graphics  based  on 
custom  character  fonts  or  other  spe- 
cial shapes.  But  designing  hi-res 
characters  and  generating  shape  ta- 
bles can  be  a  complex  undertaking. 
''ShapeMaker"  provides  a  simple 
means  of  generating  and  editing 
shape  tables  containing  characters 
and  shapes — from  very  small  fig- 
ures to  shapes  many  times  larger 
than  standard  Apple  characters. 
You  can  design  your  own  shapes 
and  characters,  or  you  can  copy 
them  automatically  from  existing 
shape  tables  and  add  them  to  your 
own  customized  table. 

Using  ShapeMaker 

Type  in  and  save  Programs  1  and  2. 
Note  that  you  must  save  Program  2 


with  the  filename  SHAPEMAKER 
because  that's  the  name  Program  1 
uses  when  loading  Program  2.  Pro- 
gram 1  is  a  very  short  program  that 
resets  the  BASIC  start-of-program 
pointer  and  runs  Program  2.  This  is 
done  to  create  a  protected  memory 
area  for  hi-res  page  1. 

Because  BASIC  memory  is 
modified,  you  should  be  very  careful 
about  editing  or  resaving  either  of 
these  programs  after  you  have  run 
them.  If  you  need  to  edit  the  pro- 
gram, you  should  reboot  the  com- 
puter, reload  the  program  from  disk, 
make  the  desired  changes,  and  re- 
save  it  before  running  it  again. 

When  you  run  the  program,  it 
displays  a  main  menu  which  looks 
like  this: 

MAIN  MENU 

(1)  DESIGN  A  NEW  SHAPE 

(2)  ESTABLISH  SIZE  OF  DOT  MATRIX 

(3)  CHANGE  STARTING  COORDINATES 

(4)  SAVE  SHAPE  TABLE  TO  DISK 

(5)  LOAD  OR  START  A  NEW  SHAPE 
TABLE 

(6)  REVIEW  A  SHAPE  TABLE 

(7)  COPY  SHAPES  FROM  OLD  TO  NEW 
TABLE 

(8)  EDIT  THE  NEW  SHAPE  TABLE 

(9)  LEAVE  THE  PROGRAM 

(PRESS  <ESC>  KEY  TO  CATALOG  A 
DISK) 

The  main  menu  gives  you  ac- 
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"ShapeMaker"  for  Apple  il  computers  is 
a  convenient  tool  for  creating  and  edit- 
ing shape  tables.  This  screen  illustrates 
just  one  of  the  ways  that  shape  tables 
can  be  used, 

cess  to  the  program's  basic  func- 
tions. To  select  an  option,  simply 
press  the  indicated  key.  For  in- 
stance, you  can  press  the  ESC  key 
to  display  a  catalog  of  the  current 
disk,  or  press  9  to  exit  the  program 
and  return  to  BASIC. 

Creating  A  New  Shape 

You  will  usually  begin  with  option 
5,  which  clears  the  screen  and 
prints  a  menu  with  two  options. 
Press  N  to  begin  a  new  table  from 
scratch,  or  L  to  load  a  partially  com- 
pleted table  from  disk. 

If  you  choose  to  create  a  new 
shape  table,  the  program  asks  you 
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to  enter  the  table's  capacity — that 
is,  the  number  of  shapes  which  this 
table  will  contain.  An  Apple  shape 
table  can  hold  as  many  as  255 
shapes.  Next,  the  program  prompts 
you  to  enter  the  number  of  rows 
and  columns  for  the  design  matrix 
and  the  starting  point  within  the 
matrix.  For  instance,  say  that  you 
want  to  design  a  character  which  is 
seven  pixels  (screen  dots)  wide  and 
nine  pixels  high;  you  would  enter  7 
at  the  column  prompt  and  9  at  the 
row  prompt.  The  starting  point  de- 
termines where  in  the  matrix  you 
will  begin  drawing;  the  lower  left 
corner  of  the  matrix  corresponds  to 
coordinates  (1,1). 

The  design  matrix  can  be  as 
wide  as  35  columns  and  as  high  as 
25  rows.  On  the  screen,  it  is  dis- 
played six  times  its  actual  size.  You 
are  now^  ready  to  design  your  first 
shape.  If  you  press  Q  followed  by 
N,  you  return  to  the  main  menu. 

Once  the  matrix  has  been  set 
up,  you  can  begin  designing  a  new 
shape  by  selecting  option  1  from 
the  main  menu.  The  matrix  appears 
immediately  with  a  blinking  cursor, 
which  indicates  your  current  posi- 
tion. Beneath  the  matrix,  Shape- 
maker  displays  the  capacity  of  the 
new  shape  table  and  the  number  of 
the  shape  being  designed. 

As  indicated  by  the  prompts, 
you  can  move  the  cursor  with  the 
arrow  keys  (for  the  He  and  lie)  or 
the  keys  1,  J,  K,  and  M.  Press  P 
wherever  you  want  to  draw  a  dot: 
That  point  in  the  matrix  is  filled. 
Continue  by  moving  the  cursor  and 
plotting  pixels  until  the  shape  is 
complete.  Pressing  Q  ends  the  de- 
sign process  and  displays  the  shape 
in  its  true  size  to  the  right  of  the 
matrix. 

At  this  point  you  can  press  Y  to 
add  the  shape  as  the  next  numbered 
shape  in  the  current  table,  or  press  N 
to  discard  it.  In  either  case,  the  pro- 
gram returns  to  the  main  menu. 

Additional  Options 

From  the  main  menu,  you  can  se- 
lect option  2  to  change  the  matrix 
size  or  option  3  to  select  new  start- 
ing coordinates  for  the  next  shape. 
It's  a  good  idea  to  save  new  shape 
tables  frequently  to  protect  against 
a  power  failure  or  other  accidents. 
To  save  a  file,  choose  option  4  and 
follow  the  prompts  on  the  screen. 


After  it  saves  the  file,  ShapeMaker 
prints  the  starting  address  and  the 
length  of  the  file  in  bytes,  which 
you  may  wish  to  record  for  future 
reference. 

ShapeMaker  goes  to  some 
lengths  to  protect  against  mistakes. 
If  you  hit  the  wrong  key  by  mistake, 
it  usually  gives  you  another  chance 
to  repeat  the  input  or  sends  you 
back  to  the  main  menu. 

Option  7  allows  you  to  copy  an 
existing  shape  table  into  a  new 
table.  Again,  you  can  simply  follow 
the  prompts  on  the  screen  after  se- 
lecting this  option.  If  there  is  a 
source  shape  table  in  memory,  the 
program  prints  its  name  and  asks 
whether  you  wish  to  copy  that 
table.  If  no  table  is  in  memory, 
ShapeMaker  asks  you  to  enter  both 
the  name  of  the  desired  shape  table 
and  the  drive  where  it  can  be  found. 
At  that  point,  the  program  gives  a 
description  of  the  source  table  and 
asks  for  the  number  of  the  source 
shape  you  wish  to  copy.  Before  pro- 
ceeding with  the  copy,  it  allows  you 
to  verify  that  this  is  the  correct 
shape  by  displaying  it  on  the 
screen.  If  you  press  Y  (yes),  that 
shape  is  copied  to  the  end  of  the 
current  shape  table. 

It  can  take  several  seconds  to 
copy  a  shape,  so  ShapeMaker  prints 
a  flashing  reminder  while  it  is  busy. 
When  the  copying  is  complete,  you 
can  either  enter  the  next  shape 
number  to  copy  or  enter  0  to  exit  to 
the  main  menu. 

Option  6  allows  you  to  review 
either  the  source  or  the  destination 
table. 

Option  8  lets  you  edit  the  new 
shape  table.  When  you  choose  this 
option,  it  displays  a  four-item  menu 
asking  whether  you  wish  to  insert  a 
shape,  delete  a  shape,  increase  the 
table's  capacity,  or  decrease  its  ca- 
pacity. For  the  first  tw^o  items,  you'll 
need  to  enter  the  number  of  the 
shape  to  insert  or  delete.  Inserting 
shape  7,  for  instance,  has  the  effect 
of  moving  upward  all  existing 
shapes  with  the  number  7  and 
above,  and  putting  in  a  new  shape 
as  number  7. 

When  you  insert,  ShapeMaker 
asks  whether  you  will  design  the 
new  shape  from  scratch  or  copy  it 
from  a  source  table  in  memory.  For 
a  new  design,  the  program  jumps  to 
the  design  matrix.  If  you  choose  to 


copy  the  new  shape  into  place,  the 
program  follows  the  normal  copy- 
ing procedure,  but  inserts  the  shape 
where  indicated  rather  than  adding 
it  to  the  end  of  the  shape  table.  If 
the  shape  table  is  full  before  inser- 
tion, the  table  capacity  is  increased 
by  one  to  make  room  for  the  insert- 
ed shape  (as  long  as  the  number  of 
shapes  would  not  exceed  255).  De» 
leting  a  shape  removes  it  from  the 
table  and  decrements  the  number 
of  each  shape  higher  than  the  num- 
ber chosen. 

When  you  select  option  9 
(quit),  ShapeMaker  checks  to  see  if 
the  new  table  has  been  changed 
since  the  last  save.  If  so,  it  asks 
whether  you  really  want  to  lose  the 
changed  shape  table,  and  exits  only 
if  you  respond  with  Y  (yes). 

Custom  Cliaracter  Sets 

Programs  3-5  are  three  sample 
character  sets  which  you  can  use 
immediately  or  modify  further  to 
your  own  tastes.  Each  shape  table 
must  be  entered  with  the  ''MLX" 
machine  language  entry  program 
listed  elsewhere  in  this  issue.  Here 
are  the  starting  and  ending  address- 
es needed  to  enter  these  files  with 
MLX: 

Program  3.  SHAPETABLE3X6 

STARTING  ADDRESS?  7800 

ENDING  ADDRESS?  7BFF 

Program  4.  SHAPETABLE5X7 

STARTING  ADDRESS?  7800 

ENDING  ADDRESS?  7CA7 

Program  5.  SHAPETABLE7X9 

STARTING  ADDRESS?  7800 

ENDING  ADDRESS?  7F8F 

The  first  shape  table  (SHAPE- 
TABLE3X6)  contains  58  uppercase 
letters,  numerals,  and  other  ASCII 
characters  in  a  format  three  pixels 
wide  and  six  pixels  high.  The  char- 
acters are  small  enough  so  that  70 
of  them  can  be  placed  across  the 
high-resolution  screen  spaced  one 
pixel  apart. 

The  second  table  (SHAPE- 
TABLE5X7)  duplicates  the  standard 
Apple  character  set  in  size,  with 
uppercase,  lowercase,  and  all  other 
standard  characters.  The  third 
shape  table  (SHAPETABLE7X9)  in- 
cludes a  larger  version  of  the  previ- 
ous table,  plus  a  complete  Greek 
alphabet. 

Once  you  have  saved  these 
files  to  disk,  they  can  be  loaded, 
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reviewed,  and  edited  at  any  time 
with  ShapeMaker, 

Displaying  A  Stiape  Table 

Program  6  is  a  short  BASIC  pro- 
gram  that  will  display  any  of  the 
three  example  shape  tables  in  its 
entirety.  To  view  a  shape  table,  run 
Program  6  and  answer  the  two 
prompts  requesting  a  filename  and 
drive  number.  The  shape  table  will 
be  displayed  on  the  monitor  screen 
in  several  rows  of  20  characters 
each. 

Hi-Res  Bar  Chart 

Programs  7  and  8  aren't  necessary 
to  use  ShapeMaker,  but  you  may 
want  to  type  them  in  to  view  an 
example  of  what  can  be  done  with 
shape  tables.  Program  7  is  a  BASIC 
program  that  loads  a  shape  table 
into  memory  and  uses  it  to  create  a 
bar  chart  on  the  hi-res  screen.  (See 
photo.)  Program  8  is  the  shape 
table  data  for  Program  7.  It  should 
be  entered  with  MLX  using  these 
addresses; 

Program  8.  BARTABLE 


STARTING  ADDRESS? 
ENDING  ADDRESS? 


7800 
79EF 


For  Program  7  to  function  properly, 
you  must  save  the  data  from  Pro- 
gram 8  with  the  name  BARTABLE. 
(See  line  300  of  Program  7.) 

Program  IrSHAPEBOOT 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE  fs  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

D2  10  REM  THIS  PGM  RESETS  THE  ST 

ART  OF  BASIC 
95  20  REM  IT  ALSO  RUNS  SHAPEMAKE 

R 
m   30  POKE  103,1:  POKE  104,64:  P 

OKE  16304,0:  REM  PUT  BASIC 
ABOVE  HIRES  PAGE  1 
£8  40  PRINT  CHR$  <4) ; "RUN  SHAPEM 

AKER" 

Program  2:  SHAPEMAKER 

For  instructions  on  entering  this  program, 
please  refer  to  "'COMPUTE! 's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

34   5    BOSUB    3420 

5B  10  TEXT  :  HOME  :  IF  PEEK  (103 
>  +  256*  PEEK  (104)  <  >  1 
63B5  THEN  PRINT  :  PRINT  "R 
UN  SHAPEBOOT  TO  SET  START 
OF  BASIC":  PRINT  :  GOSUB  2 
120;  GOTO  1040 

40  20  BL  =  0:KT  ^  0:X  -  0:Y  =  0: 
I  =  0:CODE  =  0:M$  =  "":Q  = 
0?XZ  =  0:BH  =  0;P  =  0:H  = 
0:R  =  0:C  =  0:ADDR  =  0 

BE  30  DNERR  GOTO  1560 

50  40  HC0L0R=  3:  SCALE=  1:  RaT= 
0:TA  =  30720: TB  =  2304:  PD 
KE  TB,0:  POKE  TA,0;  REM 


$7800  (NEW)  ^900  (0LD>  TA 
BLES 
30  50  TC  =  7938:  FLAG  =  0 
F9  60  POKE  768,1:  POKE  769,0:  PO 
KE  770,4;  POKE  771,0:  REM 

CURSOR  TABLE 
3D  70  POKE  772,112:  POKE  773,30: 

POKE  774,7:  POKE  775,32: 
POKE  776,0 
D7  80  POKE  TC,1:  POKE  TC  +  1,0: 
POKE  TC  +  2,4;  POKE  TC  +  3 
,0:  REM   EDIT  TABLE 
39  90  GOTO  840 
BO  100  TEXT  :  HOME  :  SN  =  0 
e/  110  PRINT  "PLEASE  PRESS:":  PR 

INT  :  PRINT  "  L  TO  LOAD 
A  SHAPE  TABLE  FROM  DISK" 

:  PRINT  "   N   TO  START  A 

NEW  SHAPE  TABLE":  PRINT  : 
PRINT  ;  PRINT  "PRESS  ANY 
OTHER  KEY  FOR  MAIN  MENU" 

:  PRINT  ;  PRINT 
BB  120  PRINT  "YOUR  SELECTION:  "; 

:  SET  A*:  PRINT  A* 
H£  130  IF  A*  =  "N"  THEN  220 
C8  140  IF  AH  <  >  "L"  THEN  840 
11  150  PRINT  :  INPUT  "NAME  OF  TA 

BLE  ";N* 
BI  160  GOSUB  1540:  REM   GET  DRIV 

E  # 
n    170  PRINT  CHR$  (4);"BLDAD  ";N 

*; ",A";TA; ",D"; AN 
20  180  N  =  (  PEEK  (TA  +  2)  +  256 
»  PEEK  CTA  +  3)  -  2)  /  2 
4A  190  SN  =  PEEK  <TA)  :  PRINT  :  I 

F  SN  =  N  THEN  PRINT  "TABL 

E  FULL":  PRINT  :  GOSUB  21 

20:  GOTO  840 
59  200  ADDR  =  PEEK  (TA  +  SN  *  2 

+  2)  +  PEEK  (TA  +  SN  «  2 

+  3)  *  256  +  TA 
B4  210  GOSUB  3400:  GOSUB  2120:  G 

OTO  840 
Fi  220  TEXT  :  HOME  :  PRINT  "PLEA 

SE  ENTER  THE  DESIRED  NUMB 

ER":  INPUT  "OF  SHAPES  FOR 
THIS  TABLE:  ";N:  IF  N  > 

255  OR  N  <  1  THEN  PRINT  : 

EN  =  2:  GOTO  1580 
BB  230  POKE  TA,0:  POKE  TA  +  1 , 0 
CA  240  Dl  =  2  *  N  +  2 
M  250  POKE  TA  +  2,D1  -  256  *  IN 

T  CDl  /  256) 
22  260  POKE  TA  +  3,  INT  (Dl  /  25 

6) 
25  270  FOR  I  =  TA  +  4  TO  TA  +  2 
POKE  1,0:  NEXT  I 
PRINT  "CHOOSE  SIZ 

E  OF  SHAPE  DESIGN  GRID" 
36  290  INPUT  "NUMBER  OF  COLUMNS 

(1  -  35>  ";C:C  =  6  t  C;  I 

F  C  >  210  THEN  290 
It   300  INPUT  "NUMBER  OF  ROWS  tl 

-  25)  ";R:R  =    150  -  6  «  R 

:  IF  R  <  0  THEN  300 
4F  310  HGR  :  POKE  250,  R:  POKE  25 

1,C 
49  320  IF  C  =  0  OR  R  =  150  THEN 

1550 
B9  330  FOR  I  =  R  TO  150  STEP  6: 

HPLDT  0, I  TO  C,I:  NEXT  I 
C5  340  FOR  I  =  O  TO  C  STEP  6:  HP 

LOT  I,R  TO  I, 150:  NEXT  I 
17  350  IF  Fl  =  1  THEN  370 
U   360  IF  A  =  1  OR  FLAG  =  1  THEN 

390 
71  370  HOME  :  VTAB  21:  PRINT  "OR 

IGIN  OF  SHAPE?   LOWER  LEF 

T  IS  (1,1)" 
ES  380  INPUT  "COLUMN  ";X1:  INPUT 

"ROW  ";Y1 
DB  390  X  =  6  *  XI  -  3:Y  =  153  - 


»  N  +  3: 
6F  280  PRINT  : 


6  «  Yi 

5F  400  IF  Fl  =  1  THEN  2240 

Ci  410  IF  SN  ^  N  AND  FLAG  =  0  TH 

EN  PRINT  "TABLE  IS  FILLED 
TO  PRESENT  CAPACITY":  PR 

INT  :  PRINT  :  GOSUB  2120: 
GOTO  B40 
7E  420  IF  FLAG  =  1  THEN  ADDR  =  P 

EEK  (TC  +  2)  -*-    TC:  GOTO  4 

40 
7'  430  ADDR  =  PEEK  (TA  +  SN  *  2 

+  2)  +  256  *  PEEK  (TA  +  5 

N  *  2  +  3)  +  TA 
»}4  440  POKE  232,0:  POKE  233,3:  R 

EM   CURSOR  TABLE 
i4  450  HOME  :  VTAB  21:  PRINT  "TA 

BLE  CAPACITY:  ";N;"  SHAPE 

S-'THIS  IS  «  ■'; 
0B  460  IF  FLAG  -  0    THEN  PRINT  SN 

+  1:  GOTO  480 
63  470  PRINT  IS 
44  480  VTAB  22:  PRINT  "TO  MOVE  C 

URSOR,  USE  IJKM  OR  ARROW 

KEYS" 
25  490  VTAB  23:  PRINT  "PRESS:   P 

TO  PLOT  A  POINT" 
3E  500  VTAB  24:  PRINT  TAB  (  9)  ;  "Q 

TO  END  THIS  SHAPE"; 
n   510  CODE  =  0 
97  520  GOSUB  1460: H=8: REM  DRAW  B 

LINKING  CURSOR 
24  540  IF  M*  =  "P"  THEN  CODE  =  4 

:  FOR  I  =  X  -  1  TO  X  +  1: 
HPLOT  I,Y  -  1  TO  I,Y  +  1 

£  NEXT  1:  GOTO  520 
27  550  IF  M*  =  "Q"  THEN  POKE  ADD 

R,CODE:  POKE  ADDR  +  1,255 

:  GOTO  660 
EB  590  POKE  6,  ASC  (M*)  :  POKE  8, 

Y:  POKE  9,X:  POKE  252, COD 

E:  CALL  2048 
FE  600  H  -  PEEK  (7):X  ^  PEEK  (9) 

:Y  =  PEEK  (8) 
=  0  THEN 
ADDR, H: A 

510 

.AG  =  1  T 
TC  +  2) 
DDR;  GOTO  680 
^4  670  ADDR  =  PEEK  CTA  +  SN  *  2 
+  2)  +  256  *  PEEK  (TA  +  S 
N  t  2  +  3)  +  TA:LQC  ==  ADD 
R 
U   680  VI  =  PEEK  (LOO :  IF  VI  = 
255  THEN  POKE  ADDR, 0: ADDR 
=  ADDR  -h  1:  GOTO  780 
EF  690  V2  =  PEEK  (LOC  +1):  IF  V 

2  =  255  THEN  POKE  ADDR, VI 
:  POKE  ADDR  +  1,0: ADDR  = 
ADDR  +  2:  GOTO  780 

D£  700  V3  =  PEEK  (LOC  +  2):  IF  V 

3  =  255  THEN  POKE  ADDR, VI 
4-  8  t  V2:  POKE  ADDR  +  1, 

0;ADDR  »  ADDR  +  2:  GOTO  7 
80 
EF  710  BYTE  =  VI  +  8  *  V2  +  64  * 

V3 
M  720  IF  BYTE  =  0  THEN  POKE  ADD 
R,64:  POKE  ADDR  +  1,24: AD 
DR  =  ADDR  +  2: LOC  =  LOC  + 
3:  GOTO  680:  REM   USES  3 
SKIP-UP  VECTORS 
7D  730  IF  V3  >  0  AND  V3  <  4  THEN 
POKE  ADDR, BYTE: ADDR  =  AD 
DR  +  1:L0C  =  LOC  +  3:  GOT 
O  680:  REM   USE  ALL  3  VEC 
TORS 
32  740  BYTE  =  VI  -i-  8  «  V2:  REM 
3RD  VECTOR  NOT  USED  FROM 
HERE  ON 
*i  750  IF  V2  >  0  THEN  POKE  ADDR, 
BYTE: ADDR  =  ADDR  +  1:L0C 


4E  610 

IF  H  =  0  THEN  520 

78  640 

POKE  ADDR, H: ADDR  =  ADDR  + 

1 
GOTO  510 

9C  650 

7B  660 

IF  FLAG  =  1  THEN  ADDR  =  P 

EEK  (TC  +  2)  +  TC:LOC  =  A 
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=  LOG  +  2:  eOTQ  680:  REM 
2  VECTORS.  USED 

F9  760  IF  VI  <  >  0  THEN  POKE  ADD 
R,BYTE:ADDR  =  ADDR  +  1 : LD 
C  =  LOC  +  1:  GOTO  680:  RE 
M   1  VECTOR  USED 

66  770  IF  BYTE  =  0  THEN  POKE  ADD 
R,24:  POKE  ADDR  +  1,8: ADD 
R  =  ADDR  +  2: LOC  =  LOG  + 
2:  GOTO  680:  REM  2  SKIP- 
UPS  AND  2  OFFSETTING  MOVE 
S  SIDEWAYS 

F£  780  IF  FLAG  =  1  THEN  POKE  232 
,TC  -  INT  <TC  /  256)  «  25 
6:  POKE  233,  INT  <TC  /  25 
6):  DRAW  1  AT  200,100:  GO 
TO  2270 

B4  790  POKE  TA,SN  +  1:  POKE  232, 
TA  -  INT  (TA  /  256)  »  256 
!  POKE  233,  INT  CTA  /  256 
) :  XDRAW  SN  +  1  AT  245, 10 
0 

B*  900  HOME  :  PRINT  :  VTAB  22:  P 
RINT  "SAVE  THIS  AS  SHAPE 
NUMBER  ";SN  +  1;"(Y/N)";: 


810 


GET  A» 
IF  A«  =  "Y" 

+  1:SF  =  1: 

N  Dl  =  ADDR 

+  2  *  SN  + 


THEN  SN  =  SN 
IF  SN  <  N  THE 
-  TA:  POKE  TA 
2,D1  -  256  I 


INT  <D1  /  256):  POKE  TA  + 


3,  INT  CDl  /  25 


48  820 


9C  830 

41  840 


2  *  SN 
6) 

IF  A$  <  >  "N"  AND  A*  <  > 
"Y"  THEN  000 
POKE  TA,SN 

TEXT  :  HOME  ;  PRINT  "   SH 
APEMAKER";  TAB (  32) ; "MAIN 

MENU":  VTAB  4:  PRINT  "PL 
EASE  MAKE  A  SELECTION:": 
PRINT  :  PRINT 
FLAG  =  0:EX  =  0:BL  =  FRE 
(0) 
PRINT  TAB(  3);"<1)  DESIGN 

A  NEW  SHAPE" 
PRINT  TAB(  3); "(2)  ESTABL 
ISH  SIZE  OF  DOT  MATRIX" 
PRINT  TAB(  3); "(3)  CHANGE 

STARTING  COORDINATES" 
PRINT  TAB(  3);"t4)  SAVE  S 
HAPE  TABLE  TO  DISK" 
PRINT  TAB(  3);"<5)  LOAD  0 
R  START  A  NEW  SHAPE  TABLE 

PRINT  TABC  3); "(6)  REVIEW 

A  SHAPE  TABLE" 
PRINT  TABC  3); "(7)  COPY  S 
HARES  FROM  OLD  TO  NEW  TAB 
LE" 

PRINT  TAB(  3); "(8)  EDIT  T 
HE  NEW  SHAPE  TABLE" 
PRINT  TAB(  3); "(9)  LEAVE 
THE  PROGRAM" 

PRINT  :  PRINT  ;  PRINT  " (P 
RESS  <ESC>  KEY  TO  CATALOG 

A  DISK) " 
PRINT  :  PRINT 
UR  SELECTION: 

PRINT  A*:A  '    VAL  CAS) 
IF  ASC  CA*)  =  27  THEN  143 
0 

IFA<10RA>9    THEN    84 
0 

PRINT  :  IF  N  =  0  AND  A  < 
5  THEN  PRINT  "NO  TABLE  AV 
AILABLE,  LOAD  OR  INITIAL 
12E":  PRINT  "A  SHAPE  TABL 
E  BEFORE  DESIGNING  SHAPES 
.":  PRINT  :  GOSUB  2120:  Q 
OTO  840 
B9  1000  IF  SN  =  255  AND  A  <  4  TH 
EN  :  HOME  :  PRINT  "THE  S 


B50 

860 

870 

880 

890 

900 

910 

920 

930 

940 

BF 

950 

64  960 

V  970 

3F  980 

AF  990 


PRINT  "YO 
:  GET  A$: 


HAPE  TABLE  IS  FULL":  PRI 
NT  :  GOSUB  2120:  GOTO  84 
0 

W  1010  ON  A  GOTO  310,280,310,10 
50, 1370, 1140, 1700,2125, 1 
020 

FA  1020  IF  SF  -  0  THEN  1040 

FB  1030  HOME  :  PRINT  "YOU  ARE  AB 
OUT  TO  PERMANENTLY  LOSE" 
;  CHR*  C7> :  PRINT  "THE  S 
HAPE  TABLE  FILE  IN  MEMOR 
Y"!  PRINT  "DO  YOU  REALLY 

WANT  TO  DO  THAT?  (Y/N) 
";;  GET  AN*:  IF  AN*  <  > 
"Y"  THEN  840 

C0  1040  TEXT  :  HOME  :  POKE  103,1 
:  POKE  104,8:  POKE  2048, 
0:  POKE  2049,0:  POKE  205 
0,0:  VTAB  7:  PRINT  "THE 
APPLESOFT  POINTER  HAS  NO 
W  BEEN  RESET":  PRINT  "TO 

ITS  NORMAL  LOCATION  IN 
MEMORY.":  VTAB  11:  PRINT 
"TO  LIST  THIS  PROGRAM  F 
IRST  USE  COMMAND 

6fl  1045  VTAB  14:  HTAB  12:  PRINT 
"LOAD  SHAPEMAKER":  END 

9C  1050  INPUT  "NAME  "  ^  N* 

77  1060  GOSUB  1540 

E6  1070  BL  =  PEEK  CTA  +  SN  *  2) 
+  256  *  PEEK  (TA  +  SN  * 
2  +  1)  +  TA 

72  1080  FOR  EO  =  BL  TO  BL  +  2000 
:  IF  PEEK  CEO)  =0  THEN 
L  =  EO  -  TA  +  2:  GOTO  11 
00 

2B  1090  NEXT  EO 

F6  1100  PRINT  CHR*  C4)  ;  "BSAVE  "; 
N*; ",A";TA; " , L" ; L; " , D" ; A 
N 

D3  1110  PRINT  :  PRINT  "FILE  !  "; 
N*:  PRINT  "SAVED  AT:  ";T 
A;"  DECIMAL":  PRINT  "FIL 
E  LENGTH:  ";L;"  DECIMAL" 
:  PRINT  :  PRINT  "PRESS  A 
KEY  ":  GET  BL* 

0E  1120  SF  =  0:  GOTO  840 

5B  1130  TEXT  :  HOME  :  END 

n    1140  IF  PEEK  CTB)  =  0  AND  PEE 
K  CTA)  =  0  THEN  PRINT  "T 
HERE  ARE  NO  TABLES  IN  ME 
MORY":  PRINT  :  GOSUB  212 
02  GOTO  840 

E7  1150  IF  PEEK  CTA) 
10 

DD  1160  IF  PEEK  CTB) 
90 

Zi    1170  HOME  ;  PRINT 

E  TABLE  DO  YOU  WANT  TO  S 
EE?":  PRINT  :  PRINT  "PRE 
SS: ":  HTAB  3:  PRINT  "1  F 
OR  THE  TARGET  CNEW)  TABL 
E"!  HTAB  3:  PRINT  "2  FOR 

THE  SOURCE 
":  GET  AN* 

E2  1180  IF  AN*  <  > 

7F    1190    TT    =    TA:SS 
20 

Eft    1200    IF    AN*    <     > 

16  1210  TT  =  TB:SS  =  OS 

53  1220  POKE  232,  TT  -  INT  CTT  / 
256)  »  256:  POKE  233,  IN 
T  (TT  /  256) 

F5  1230  HOME  :  PRINT  "THERE  ARE 
";SS;"  SHAPE CS)  IN  THE  T 
ABLE" 

Ca  1240  NN  =  C  PEEK  CTT  +  2)  +  2 
56  *  PEEK  CTT  +3)  -  2) 
/  2:  PRINT  "TABLE  CAPACI 
TY  IS  ";NN; "  SHAPES" 

M  1250  IF  SS  =  0  THEN  PRINT  :  G 
OSUB  2120!  GOTO  840 

64  1260  PRINT  :  PRINT  "ENTER  0  T 


0  THEN  12 


0  THEN  11 


"WHICH  SHAP 


COLD)  TABLE 


'1"  THEN  1200 
=  SN:  GOTO  12 


"2"  THEN  840 


£4 


4C 


O  RETURN  TO  MAIN  MENU": 

PRINT 
1270  INPUT  "OR  ENTER  NUMBER  0 

F  DESIRED  SHAPE  ";DS*:DS 
=  VAL  CDS*) :  IF  DS  >  SS 
THEN  1230 
1200  IF  DS  -    0  THEN  840 
1290  POKE  232, TT  -  INT  CTT  / 

256)  *  256!  POKE  233,  IN 

T  CTT  /  256) 
1300  HGR 
1310  XDRAW  DS  AT  220,100:  VTA 

B  21:  CALL  -  868:  PRINT 

"CURRENT  SHAPE  IS  #  " ; DS 
1320  VTAB  22:  PRINT  "ENTER  NU 

MBER  OF  NEXT  DESIRED  SHA 

PE,":  CALL  -  868:  INPUT 

"OR  ENTER  0  TO  RETURN  TO 
MAIN  MENU   ";AN*:  IF  AN 

*  =  "0"  THEN  B40 
1330  XDRAW  DS  AT  220, 100: DS  = 

VAL  CAN*) 
1340  IF  DS  >  SS  OR  DS  <  1  THE 

N  TEXT  :  PRINT  CHR*  (7): 
GOTO  1230 
1350  IF  DS  =  0  THEN  840 
1360  GOTO  1310 
1370  HOME  :  IF  SF  =  0  THEN  10 

0 
1380  PRINT  "THE  SHAPE  TABLE  I 

N  MEMORY  WILL  BE":  PRINT 
"LOST  IF  YOU  START  A  NE 

W  SHAPE"!  PRINT  "TABLE. 
DO  YOU  REALLY  WANT  TO  D 

0":  PRINT  "THAT?  (Y/N)  " 

;  CHR*  C7); 
1390  GET  AN* 

1400  IF  AN*  =  "Y"  THEN  100 
1410  IF  AN*  <  >  "Y"  AND  AN*  < 
>  "N"  THEN  PRINT  :  PRIN 

T  :  GOTO  1380 
1420  GOTO  840 
1430  GOSUB  1540 
1440  PRINT  CHf^*  C4)  ;  "CATALOG, 

D";AN 
1450  PRINT  :  GOSUB  2120:  GOTO 

840 
1460  XZ  =  PEEK  C49i68):KT  =  0 
1470  XDRAW  1  AT  X,Y:KT  =  KT  + 

1 
1480  IF  KT  =  2  THEN  KT  =  0 
1490  FOR  1  =  1  TO  30: BL  =  PEE 

K  (49152):  IF  BL  >  127  T 

HEN  M*  =  CHR*  CBL  -  128) 

:BL  =  0:  GOTO  1520 
1500  NEXT  I 
1510  GOTO  1470 
1520  IF  KT  =  1  THEN  XDRAW  1  A 

T  X,Y 
1530  RETURN 

1540  HOME  :  PRINT  "ENTER  DISK 
DRIVE  NUMBER:  ";:  GET  A 

N*:  PRINT  AN*: AN  -    VAL  C 

AN*):  RETURN 
1550  TEXT  :  HOME  :  PRINT  "THE 

RE'S  NO  SHAPE  DESIGN  MAT 

RIX  IN  MEMORY":  PRINT  "P 

LEASE  ESTABLISH  ONE":  PR 

INT  :  GOSUB  2120:  GOTO  8 

40 
1560  TEXT  :  HOME  :  PRINT  :  PR 

INT  "OOPS!  CAN'T  DO  THAT 

":  PRINT  CHR*  C7) 
1570  EN  =  PEEK  (222) 
1580  IF  EN  ^  2  OR  EN  =  3  THEN 
PRINT  "THAT  NUMBER  IS  T 

00  BIG  OR  SMALL" 
1590  IF  EN  =  4  THEN  PRINT  "SO 

RRY,  CAN'T  WRITE  TO  A  WR 

ITE":  PRINT  "PROTECTED  F 

ILE" 
1600  IF  EN  =  6  THEN  PRINT  "SO 
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RRY,  CAN'T  FIMD  THAT  FIL 

E" 
79  1610  IF  EN  =  8  THEN  PRINT  "TH 

ERE'S  SOME  SORT  OF  INPUT 

/OUTPUT":  PRINT  "ERROR" 
«3  1620  IF  EN  =  9  THEN  PRINT  "SO 

RRY,  THAT  DISK  IS  ALREAD 

Y  FULL  OF  DATA" 
FB  1630  IF  EN  =  10  THEN  PRINT  "S 

ORRY,  CAN'T  WRITE  TO  A  L 

QCKED  FILE" 
2ft  1640  IF  EN  =  il  OR  EN  =  16  TH 

EN  PRINT  "THERE'S  SOME  S 

ORT  OF  SYNTAX  ERROR  HERE 


D6 


DB 


A2 


1650  IF  EN  =  53  THEN  PRINT  "S 
ORRY,  THAT  NUMBER  IS  NOT 
LEGAL" 

1660  IF  EN  -    77  THEN  PRINT  "O 
H  OHl   WE'RE  OUT  OF  MEMO 
RY!  " 

1670  ONERR  GOTO  1560 

1680  PRINT  :  PRINT  "LET'S  RET 
URN  TO  THE  MAIN  MENU  AND 
":  PRINT  "TRY  AGAIN";  PR 
INT  !  SOSUB  2120!  GOTO  B 
40 

1690  0T$  =  ""r  GOTO  1560 

1700  IF  SN  =  N  THEN  PRINT  "TA 
BLE  IS  FULL":  GOSUB  2120 
3  GOTO  840 

1710  HOME  :  IF  QT*  <  >  ""  THE 
N  PRINT  "THE  SOURCE  SHAP 
E  TABLE  IN  MEMORY  IS:": 
PRINT  OT*:  PRINT  :  PRINT 
"IS  THAT  OK?  (Y/N> : "s  G 
ET  AN4:  IF  AN*  =  "Y"  THE 
N  1760 

1720  PRINT  :  PRINT  "ENTER  NAM 
E  OF  SOURCE  SHAPE  TABLE: 
":  INPUT  "";0T*: 

1730  GOSUB  1540 

1740  ONERR  GOTO  1690 

1750  PRINT  CHR*  (4) ; "BLOAD  "; 
OT*;',  A";TB;  ",D";  AN 

1760  HOME  :  IF  N  =  0  THEN  PR I 
NT  'THERE  IS  NO  TARGET  T 
ABLE  AVAILABLE  IN":  PR IN 
T  "MEMORY.  PLEASE  INITI 
ALI2E  A  NEW  TABLE":  PRIN 
T  "OR  LOAD  ONE  FROM  MEMO 
RY":  PRINT  :  PRINT  "RETU 
RNING  TO  MAIN  MENU":  PR! 
NT  :  GOSUB  2120:  GOTO  84 
0 

1770  NO  =  (  PEEK  (TB  +■  2)  +  2 
56  *  PEEK  (TB  +  3)  -    2) 
/  2 

1780  OS  =  PEEK  (TB) 

1790  OA  =  PEEK  (TB  +  OS  *  2  + 
2>  +  PEEK  (TB  +  OS  t  2 
+  3>  »  256  +  TB:  REM   AD 
DRESS  OF  OLD  TABLE 

1800  PRINT  "THE  SOURCE  TABLE 

CAN  HOLD  ";N0;"  SHAPES": 

PRINT  :  PRINT  "IT  NOW  H 

AS  ";0S;"  SHAPES  IN  IT": 

PRINT  :  GOSUB  2120: 

1810  HOME  :  HGR  :  VTAB  24:  PR 
INT  "ENTER  0  TO  RETURN  T 
0  MAIN  MENU" 

1820  VTAB  21 !  HTAB  36:  PRINT 


31  1830  VTAB  21:  HTAB  1:  PRINT  " 
ENTER  SOURCE  SHAPE  NUMBE 
R  TO  COPY:  "; :  INPUT  ""; 
AN*: AN  =  VAL  (AN*> 
Ft?  1840  IF  AN  =  0  THEN  840 
A3  1850  IF  AN  <  1  OR  AN  >  OS  THE 
N  PRINT  "SORRY,  NO  SUCH 
SHAPE  IN  TABLE":  PRINT  " 
PLEASE  PRESS  A  KEY  ":  6E 
T  AN*:  GOTO  1810 


IP    1860  POKE  232,  TB  -  INT  (TB  / 
256)  *  256:  POKE  233,  IN 
T  (TB  /  256) 
1£  1870  DRAW  AN  AT  200,100:  IF  F 

LAG  =  1  THEN  2630 
i5  1880  HOME  :  VTAB  21:  PRINT  "C 
OPY  THIS  AS  SHAPE  #";SN 
+  1; "  (Y/N)  "; :  GET  AN* 
95  1890  IF  AN*  =  "N"  THEN  1810 
iB  1900  IF  AN*  <  >  "Y"  THEN  840 
A7  1910  VTAB  24:  HTAB  1:  FLASH  : 
PRINT  "COPYING  DATA";: 
NORMAL  :  PRINT  " 
Ei  1920  ADDR  =  PEEK  (TA  +  SN  «  2 
•*•  2)  +  256  *  PEEK  (TA  + 
SN  *  2  +  3)  -I-  TA 
16  1930  SF  =  1:  IF  SN  <  N  THEN  D 
1  =  ADDR  -  TA:  POKE  TA  + 
2  *  SN  +  2,D1  -  256  *  I 
NT  (Dl  /  256) :  POKE  TA  + 
2  #  SN  +  3,  INT  (Dl  /  2 
56) 
O:  1940  POKE  TA,SN  +  1 
fiS  1950  OA  =  PEEK  (TB  +  2  #  AN) 
+  PEEK  (TB  +  2  *  AN  +  1) 
*  256  +  TB 

31  1960  Zl  =  0 

32  1970  FOR  I  =  1  TO  1000 

f<  1980  POKE  232,  TB  -    INT  ( TB  / 

256)  *  256:  POKE  233,  IN 

T  (TB  /  256) 
34  1990  BI  =  PEEK  (OA) 
63  2000  POKE  232,  TA  -  INT  (TA  / 

256)  «  256-  POKE  233,  IN 

T  (TA  /  256) 
C7  2010  POKE  ADDR,BI 
3D  2020  ADDR  =  ADDR  +  1 
D4  2030  OA  =  OA  +  1 
D5  2040  IF  BI  =  0  AND  Zl  =  0  THE 

N  POKE  ADDR, 0: ADDR  =  ADD 

R  +  1:  GOTO  2080 
fi?  2050  IF  BI  -  0  THEN  2080 
»5  2060  21  -  Zl  4*  1 
88  2070  NEXT  I 
CB  2080  SN  ^  SN  +  1:  IF  SN  <  N  T 

HEN  Dl  =  ADDR  -  TA:  POKE 
TA  +  2  *  SN  +  2,D1  -  25 

6  *  INT  (Dl  /  256):  POKE 
TA  +  2  *  SN  +  3,  INT  (D 

1  /  256) 
7A  2090  VTAB  23:  HTAB  1:  PRINT  " 

DONE,  PLEASE  PRESS  A  KEY 
" ; :  GET  AN* 
fifi  2100  IF  SN  =  N  THEN  HOME  ;  VT 

AB  23:  GOTO  1700 

65  2110  GOTO  1810 

43  2120  PRINT  "PRESS  ANY  KEY  TO 
CONTINUE  ";:  GET  AN*:  RE 
TURN 
5F  2125  IF  N  =  0  THEN  1760 
4F  2130  HOME  :  PRINT  "PRESS:":  P 
RINT  :  PRINT  TAB  (  3),'"  (1 
)  TO  INSERT  A  SHAPE  IN  T 
ABLE":  PRINT  TAB (  3) ; " (2 
)  TO  DELETE  A  SHAPE  FROM 
TABLE" 

66  2140  PRINT  TAB  (  3)  ;  "  (3)  TO  IN 

CREASE  TABLE  CAPACITY": 
PRINT  TAB(  3) ; " C4)  TO  DE 
CREASE  TABLE  CAPACITY  '; 
:  GET  AN*:  PRINT  AN*:  IF 

AN*  <  "1"  OR  AN*  >  "4" 
THEN  840 

3B  2150  AN  =  VAL  CAN*) 

5F  2160  PL  =  0:  IF  AN  =  3  THEN  P 
L  =  1 

66  2170  IF  AN  =  1  AND  SN  ^  255  T 
HEN  PRINT  :  PRINT  "SORRY 
,  THE  NEW  SHAPE  TABLE  IS 
FULL":  PRINT  :  PRINT  "D 
ELETE  A  SHAPE  BEFORE  ADD 
ING  TO  TABLE":  GOSUB  212 


31  2220 
U  2230 
9C  2240 


E5  2260 
fD  2270 


fD  2280 
D:  2290 


GOSUB  2 


16368,0:  V 
:  PRINT  "I 


0:  GOTO  840 
48  2180  ON  AN  GOTO  2190,2740,302 

5,3025 
n  2190  HOME  :  PRINT  "ENTER  NUMB 

ER  OF  SHAPE  TO  BE  INSERT 

ED":  INPUT  "INTO  THE  NEW 
TABLE  "; IS:  IF  IS  <  1  0 

R  IS  >  SN  THEN  PRINT  :  P 

RINT  "THAT  NUMBER  IS  OUT 
OF  RANGE":  PRINT  :  GOSU 

B  2120:  GOTO  840 
n   2200  FLAG  =  1:S1  =  SN:NN  =  N 

93  2210  HOME  :  PRINT  "PRESS:";  P 

RINT  :  PRINT  TAB (  3>;"(1 
)  TO  DESIGN  NEW  SHAPE  #" 
; IS:  PRINT  TAB (  3) ; " (2) 
TO  GET  IT  FROM  THE  SOURC 
E  TABLE  ";:  GET  AN*:  PR! 
NT  AN*:  IF  AN*  <  "1"  OR 
AN*  >  "2"  THEN  2210 
AN  -  VAL  (AN*) 
ON  AN  GOTO  2240,2610 
Fl  =  0;  IF  C  =  0  OR  R  = 
150  THEN  Fl  =  1:  GOTO  23 
0 
E9  2250  IF  N  =  0  THEN  PRINT  :  PR 
INT  "NO  TARGET  TABLE  AVA 
ILABLE":  PRINT 
120:  GOTO  840 
GOTO  310 
HOME  :  POKE  - 
TAB  22:  HTAB  1 
NSERT  THIS  AS  SHAPE  NUMB 
ER  "; IS; "  (Y/N)?";:  GET 
AN* 
IF  AN*  <  >  "Y"  THEN  TEXT 

HOME  :  GOTO  2130 
HOME  :  VTAB  24:  FLASH  : 
PRINT  "INSERTING  SHAPE  N 
UMBER  ";IB:  NORMAL  :  5F  = 
i 
B#  2300  NL  s  0 
»7  2310  FOR  I  =  TC  +  4  TO  TC  +  1 

000 
fl  2320  BL  =  PEEK  (I )  :  NL  =  NL  + 
1:  IF  BL  =  0  AND  NL  >  1 
THEN  2350 
17  2330  IF  BL  ^  0  THEN  NL  =  2:  G 

OTO  2350 
82  2340  NEXT  I 

74  2350  IF  SN  =  N  THEN  EX  =  2 
7fl  2360  GOSUB  3340 
DE  2370  START  =  PEEK  (TA  +  IS  * 
2)  +  256  «  PEEK  (TA 
*  2  +  1)  4-  TA:  REM 
OM  IS  TO  END 
58  2380  FOR  I  =  OE  TO  START  STEP 
-  1 

26  2390  POKE  I  +  NL  +  EX,  PEEK  ( 

I) 
74  2400  NEXT  I 
F9  2410  Z  =  0 

IC  2420  FOR  I  ==  TC  +  4  TO  TC  +  4 
+  NL  -  1:  REM   INSERT  N 

EW  SHAPE 
D9  2430  POKE  START  +  EX  +  Z,  PEE 

K  (I) :Z  =  Z  +  1 
84  2440  NEXT  I 
F4  2450  BEGIN  =  PEEK  (TA  +  2)  + 

256  «  PEEK  (TA  +  3)  +  TA 

:  REM   ADDRS  OF  #1  SHAPE 
7C  2460  FOR  I  ^  START  -  1  TO  BEG 

IN  STEP  -  1 

27  2470  POKE  I  +  EX ,  PEEK  (I) 

94  2480  NEXT  I 

95  2490  BH  =  0 

48  2500  Al  =  2:  IF  SN  +  1  >  =  N 

THEN  Al  =  0 
2i   2510  FOR  I  =  TA  +  2  «  SN  +  Al 

TO  TA  +  2  *  IS  STEP  -  2 
A9  2520  BH  =  PEEK  ( I  +  1  >  ;  BL  =  P 

EEK     C I ) : BL    =    BL   +   NL    +   E 


IS 
FR 
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X:  IF  BL  >  255  THEN  BL  = 
BL  -  256:  BH  =  BH  ■♦'  1:  P 
OKE  I  +  3,BH 
D0  2530  POKE  I  +  2,BL:  POKE  I  + 

3,BH 
B6  2540  NEXT  I 
Ifl  2550  FOR  r  =  TA  +  2  »  IS  TO  T 

A  +  2  STEP  -  2 
79  2560  BH  =  PEEK  (I  +  1  )  :  BL  =  P 
EEK  (I) sBL  =  BL  +  EXs  IF 
BL  >  255  THEN  BL  =  BL  - 
256: BH  =  BH  +  1:  POKE  I 
+  1,BH 
7E  2570  POKE  I,BL:  POKE  I  +  1 , BH 
94  2580  NEXT  I 

A3  2590  SN  ==  SI  +  1 :  N  =  NN  +  EX 
/  2!  POKE  TAjSNsDl  ^    2    t 
N  +  2 
AB  2600  HOME  :  VTAB  23:  PRINT  "I 
NSERTION  OF  SHAPE  NUMBER 
"I  IS;"  COMPLETE"! :  PRIN 
T  s  GOSUB  2120:  GOTO  840 
9B  2610  IF  N  =  0  THEN  2250 
71  2620  BOTO  1710 

7i  2630  HOME  :  VTAB  21:  PRINT  "I 
NSERT  THIS  AS  SHAPE  #  "; 
IS; "  (Y/N) "; :  GET  A*:  IF 
A$  =  "N"  THEN  1010 
U   2640  IF  A$  <  >  "Y"  THEN  840 
!F  2650  OA  =  PEEK  (TB  +  2  «  AN) 
-*■    PEEK     (TB  +  2  t  AN  +  1) 
«  256  +  TB:  REM   ADDR  D 
F  SHAPE 
12  2660  1    =    0 
C7  2670  FOR  I  =  0  TO  1000-  REM 

PUT  IT  IN  TABLE 
3A  2680  BI  =  PEEK  (OA  +  I) 
64  2690  POKE  TC  +  4  +  I,BI 
ID  2700  IF  BI  =  0  AND  Z  >  0  THEN 

2730 
75  2710  IF  BI  =  0  THEN  POKE  TC  + 
4+1+1,0:  GOTO  2730 

82  2720  NEXT  I 

8£  2730  GOTO  2290 

83  2740  PRINT  :  PRINT  "ENTER  NUM 

BER  OF  SHAPE  TO  DELETE  F 

ROM  THE":  INPUT  "TARGET 

(NEW)  SHAPE  TABLE  ";AN*: 

DS  -    VAL  (AN*) !  IF  DS  < 

1  OR  DS  >  BN  THEN  PRINT 

:  PRINT  "NO  SUCH  NUMBER 

IN  TABLE":  PRINT  :  SOSUB 
2120:  GOTO  840 
A5  2750  POKE  232,  T A  -  INT  (TA  / 

256)  «  256:  POKE  233 »  IN 

T  (TA  /  256) 
B5  2760  HGR  ;  DRAW  DS  AT  200,  100 
60  2770  HOME  :  VTAB  22:  PRINT  "D 

ELETE  THIS  AS  SHAPE  #  "; 

DS; "?  (Y/N)  ";:  GET  AN$: 
IF  AN*  <  >  "Y"  AND  AN* 

<  >  "N"  THEN  840 
96  2780  IF  AN*  -  "N"  THEN  2740 
EF  2790  HOME  ;  VTAB  22:  FLASH  ; 

PRINT  "DELETING  SHAPE  # 

";DS:  NORMAL  ! SF  =  1 
62  2800  ADDR  =  PEEK  (TA  +  SN  t  2 

>  +  256  «  PEEK  (TA  +  SN 

*  2  +  1)  +  TA 
£9  2810  IF  PEEK  (ADDR)  ^  0  THEN 

ED  =  ADDR  +  1:  BOTO  2850 
59  2820  FOR  EO  =  ADDR  TO  ADDR  + 

1000:  REM   FIND  END  OF  T 

ABLE 
83  2830  BL  =  PEEK  (EO)  ;  IF  BL  = 

0  THEN  2850 
28  2840  NEXT  EO 
f;  2850  START  =  PEEK  (TA  +  2  «  D 

S)  +  256  »  PEEK  (TA  +  2 

»  DS  +  1)  +  TA 
li  2860  1    =    0 
D8  2870  FOR  I  =  START  TO  START  + 


1000:  REM   FIND  LENGTH 
OF  DELETE  SHAPE 
67  2880  BL  =  PEEK  (I):!  =  Z  +  1: 

IF  BL  =  0  THEN  2900 
A0  2890  NEXT  I 

37  2900  IF  Z  =  1  THEN  2=2 
F£  2910  FOR  I  =  START  +  Z  TO  EO: 

REM   MOVE  VECTORS 
49  2920  POKE  I  -  Z,  PEEK  (I) 
afl  2930  NEXT  I 
IB  2940  EX  =0:  IF  SN  <  N  THEN  E 

X    =    2 
Bft  2950  FOR  I  =  TA  +  2  «  DS  +  2 
TO  TA  +  2  *  SN  +  EX  STEP 
2 

56  2960  BH  =  PEEK  ( I  +  1 )  :  BL  =  P 

EEK  (I) :BL  =  BL  -  Z:  IF 

BL  <  0  THEN  BL  =  BL  +  25 

6:BH  =  BH  -  1 
CC  2970  POKE  I  -  2,BL:  POKE  I  - 

1,BH 
9£  2980  NEXT  I 

24  2990  IF  SN  =  N  THEN  BL  =  EO  - 
Z  +  1:  POKE  TA  +  2  *  SN 

,BL  -  INT  (BL  /  256)  t    2 

56:  POKE  TA  +  2  *  SN  +  1 

,  INT  ( (BL  -  TA)  /  256) 
B6  3000  IF  EX  ^  2  THEN  POKE  TA  + 
2  *  SN  +  2,0:  POKE  TA  + 
2  «  SN  +  3,0 
73  3010  SN  =  SN  -  1:  POKE  TA,SN: 

EX  =  0:ADDR  =  EO  +  1 
43  3020  HOME  :  VTAB  22:  PRINT  "D 

ELETION  OF  SHAPE  NUMBER 

";DS;"  COMPLETED":  PRINT 
:  GOSUB  2120:  GOTO  840 
DC  3025  GOSUB  3400:  IF  PL  =  0  TH 

EN  PRINT  "SUBTRACT  ";s  G 

OTO  3035 
81  Z0Z0    PRINT  "ADD  "; 
14  3035  INPUT  "HOW  MANY  SHAPES? 

";NC*:NC  =  VAL  (NC*) 
6D  3040  GOSUB  3340 
7*  3050  START  =  PEEK  (TA  +  2)  + 

256  *  PEEK  (TA  +  3)  +  TA 
CF  3060  IF  PL  =  0  THEN  3230 
BB  3070  IF  N  +  NC  >  255  THEN  HOM 

E  :  PRINT  "TOO  MANY  SHAP 

ESI":  PRINT  :  GOSUB  2120 

:  SOTO  840 
3A  3080  GOSUB  3410:  SF  =  1 

57  3090  FOR  I  =  OE  TO  START  STEP 

-  1 

BE  3100  POKE  I  +  2  *  NC,  PEEK  (I 

} 
73  3110  NEXT  I 
6E  3120  FOR  I  =  START  TO  TA  +  2 

»  (N  +  NO  +  1 
2£  3130  POKE  1,0 
7F  3140  NEXT  I 
£F  3150  FOR  I  =  TA  +  2  TO  START 

~  2  STEP  2 
V   3160  BL  =  PEEK  ( I ) : BH  =  PEEK 

(I  +  1) :  IF  BL  =  0  AND  B 

H  =  0  THEN  3210 
BB  3170  BL  -  BL  +  2  *  NC 
*D  3180  IF  BL  >  255  THEN  BL  =  BL 

-  256: BH  =  BH  +  1:  GOTO 
3180 

7F  3190  POKE  I,BL:  POKE  I  +  1 , BH 
71  3200  NEXT  I 

E7  3210  BH  =  INT  C  (OE  -  TA  +  2  * 
NC  +  1)  /  256>:BL  =  OE 
+  2  *  NC  +  1  -  TA  -  BH  « 
256:  POKE  TA  +  SN  *  2  + 
2,BL:  POKE  TA  +  SN  *  2 
+  3,BH:N  =  N  +  NC 
2i  3220  GOSUB  3400:  GOSUB  2120: 

BOTO  840 
C5  3230  IF  N  -  NC  <  1  OR  N  -  NC 

>  255  THEN  2130 
(4  3235  IF  NC  <  1  THEN  EN  =  2:  G 


OTQ  1580 
44  3240  IF  SN  >  N  -  NC  THEN  PRIN 

T  "DO  YOU  WANT  TO  LOSE  " 

;SN  -  N  +  NC;"  SHAPE <S)? 
(Y/N)  "; :  GET  AN*:  IF  A 

N*  <  >  "Y"  THEN  840 
32  3250  GOSUB  3410:  SF  =  1 
5C  3260  FOR  I  =  START  TO  OE:  PDK 

E  I  -  2  t  NC,  PEEK  (I>s 

NEXT  I 
B6  3270  FOR  I  =  TA  +  2  TO  START 

-  2  -  2  »  NC  STEP  2 
Di  3280  BL  =  PEEK  ( I ) :  BH  =  PEEK 

(I  +  1) :  IF  BL  =  0  AND  B 

H  =  0  THEN  3320 
C9  3290  BL  =  BL  -  2  *  NC 
92  3300  IF  BL  <  0  THEN  BL  =  BL  + 
256: BH  =  BH  -  1 :  GOTO  3 

300 
CI  3310  POKE  I,BL:  POKE  I  +  1,BH 

:  NEXT  I 
i9  3320  N  =  N  -  NC:  IF  SN  >  N  TH 

EN  SN  =  N:  POKE  TA,SN 
6C  3330  GOTO  3220 
Ci  3340  Z  =  0:ADDR  =  PEEK  (TA  + 

SN  *  2)  +  256  t  PEEK  (TA 
+  SN  *  2  +  1)  +  TA 
20  3350  FOR  I  =  1  TO  1000 
9E  3360  BL  =  PEEK  (ADDR)  :  IF  BL 

=  0  AND  2  >  0  THEN  3390 
9A  3370  IF  BL  =  0  THEN  ADDR  ^  AD 

DR  +  1:  GOTO  3390 
BB  3380  ADDR  =  ADDR  +  1:2  =  2  + 

1:  NEXT  I 
73  3390  OE  ^  ADDR:  RETURN 
6B  3400  HOME  :  PRINT  "THIS  TABLE 
CAN  HOLD  ";N;"  SHAPES": 
PRINT  !  PRINT  "IT  NOW  H 

AS  "jSN;"  SHAPE (S)  IN  IT 

";  PRINT  ;  PRINT  :  RETUR 

N 
9£  3410  PRINT  !  FLASH  :  PRINT  "A 

D JUSTING  CAPACITY"!  NORM 

AL  :  RETURN 
IF  3420  FOR  I  =  1  TO  178:  READ  X 

:  POKE  2047  +  I,X:  NEXT 

I:  RETURN 
AE  3430  DATA  165,6,201,73,240,04 

,201, 11,208,37, 165,252,1 

33, 7, 56, 165, 8, 201 , 3, 240, 

16,233,6, 133,8, 197,250, 1 

44,3 
60  3440  DATA  76,177,8,24,105,6,1 

33,8,32,58,255, 169,8, 133 

, 7, 76, 177, 8, 201 , 75, 240, 4 

,201,21,208,37,24 
F3  3450  DATA  165,252,105,1,133,7 

,24, 165,9, 105,6, 133,9,16 

5,251, 197,9, 176, 102,56,1 

65,9,233,6 
9£  3460  DATA  133,9,32,58,255,169 

,8, 133,7,76, 177,8,201,77 

,240,4,201, 10,208,37,24, 

165,252,105,2,133,7 
AS  3470  DATA  24,165,8,105,6,133, 

8, 169, 150, 197,8, 176,57,5 

6,165,8,233,6, 133,8,32,5 

8,255,169,8 
CE  3480  DATA  133,7,76,177,8,201, 

74, 240, 4 , 201 , 8, 208, 32, 24 

,165,252, 105,3, 133,7,56, 

165,9,233,6 
AD  3490  DATA  133,9,165,9,201,240 

, 144, 12,24, 105,6, 133,9,3 

2,58,255, 169,8, 133,7,96 
53  50000  D*  =  CHR*  (4): I*  =  CHR* 

(9) 
1£  50020  PRINT  D*;"PR#1" 
2F  50040  PRINT  14;  "60P" 
B5  50050  PRINT  I*;  "S0N" 
iE  50060  LIST  1,4000 
44  50070  PRINT  D*; "PR#0" 


May  1987  COMPUTil   75 


Proaram  3 

:  SHAPETABLE3X6 

7Aa8! 

00 

00 

00 

00 

00 

00 

00 

00 

7D 

790S 

29 

DC 

2F 

38 

60 

15 

04 

00  8F 

> 

f 

7A90! 

00 

00 

00 

00 

00 

00 

00 

00 

85 

7910 

40 

IB 

29 

20 

3C 

26 

00 

49  14 

Please  refer 

to  the  "MLX' 

'  article  elsewhere  in 

7A9B] 

00 

00 

00 

00 

00 

00 

00 

00 

8D 

7918 

IC 

24 

24 

0C 

04 

00 

29 

20  F9 

this  Issue  betore  enrering  tne  following 

7AA0! 

00 

00 

00 

00 

00 

00 

00 

00 

95 

7920 

24 

E4 

04 

00 

01 

28 

2B 

CB  A0 

program - 

7AAS: 

00 

00 

00 

00 

00 

00 

00 

00 

9D 

7928 

23 

IC 

00 

16 

B5 

23 

OS 

27  C9 

7800 

3A 

00 

76 

00 

7C 

00 

82  00 

C5 

7AB0! 

00 

00 

00 

00 

00 

00 

00 

00 

A5 

7930 

00 

09 

20 

24 

FC 

12 

60 

25  OB 

7S0S 

8E 

00 

98 

00 

A0 

00 

A8  00 

A9 

7  ABB: 

00 

00 

00 

00 

00 

00 

00 

00 

AD 

793S 

00 

21 

35 

F6 

04 

00 

40 

IB  42 

7810 

AC 

00 

B4 

00 

BB 

00 

CI  00 

4F 

7AC0! 

00 

00 

00 

00 

00 

00 

00 

00 

B5 

7940 

20 

20 

04 

00 

21 

35 

04 

00  7B 

7818 

C6 

00 

CA 

00 

CE 

00 

Dl  00 

DF 

7  ACS! 

00 

00 

00 

00 

00 

00 

00 

00 

BO 

7948 

2B 

28 

28 

28 

20 

00 

20 

24  46 

7820 

D7 

00 

DF 

00 

E6 

00 

EF  00 

10 

7AD0: 

00 

00 

00 

00 

00 

00 

00 

00 

C5 

7950 

64 

20 

15 

36 

36 

IE 

3F 

04  73 

7828 

Fa 

00 

FF 

00 

06 

01 

0E  01 

E6 

7AD8; 

00 

00 

00 

00 

00 

00 

00 

00 

nii 

7958 

28 

28 

20 

00 

29 

3D 

20 

24  10 

7830 

15 

01 

IF 

01 

26 

01 

29  01 

6B 

7AE0: 

00 

00 

00 

00 

00 

00 

00 

00 

D5 

7960: 

24 

IE 

04 

00 

20 

20 

DC 

IB  60 

7838 

2E 

01 

34 

01 

39 

01 

40  01 

66 

7AE8: 

00 

00 

00 

00 

00 

00 

00 

00 

DD 

7968 

64 

2D 

05 

20 

IC 

3F 

IE 

04  99 

7840 

47 

01 

49 

01 

51 

01 

59  01 

90 

7AF0! 

00 

00 

00 

00 

00 

00 

00 

00 

E5 

7970: 

00 

70 

20 

05 

20 

IC 

2F 

28  60 

7848 

.  61 

01 

6A 

01 

74 

01 

7B  01 

27 

7AF8: 

00 

00 

00 

00 

00 

00 

00 

00 

ED 

7978 

E0 

3F 

04 

00 

49 

24 

FD 

3F  42 

7850 

85 

01 

SE 

01 

98 

01 

A0  01 

31 

7B00: 

00 

00 

00 

00 

00 

00 

00 

00 

F6 

7980 

2C 

28 

28 

30 

36 

04 

00 

70  CD 

7858 

A9 

01 

B0 

01 

BA 

01 

C4  01 

EB 

7S08! 

00 

00 

00 

00 

00 

00 

00 

00 

FE 

7988 

20 

05 

20 

E4 

ZF 

27 

2C 

20  CI 

7860 

■  CD 

01 

D4 

01 

DE 

01 

E7  01 

EE 

7B10i 

00 

00 

00 

00 

00 

00 

00 

00 

07 

7990 

25 

00 

29 

20 

20 

IC 

3F 

37  35 

786S 

'  EE 

01 

F5 

01 

FE 

01 

07  02 

EB 

7B18! 

00 

00 

00 

00 

00 

00 

00 

00 

0F 

799B 

26 

18 

08 

64 

20 

04 

00 

09  6E 

7870 

10 

02 

IB 

02 

IE 

02 

12  04 

2E 

7B20! 

00 

00 

00 

00 

00 

00 

00 

00 

17 

79A0 

24 

05 

20 

05 

20 

3F 

3F 

04  BB 

7678 

20 

24 

04 

00 

40 

18 

33  0D 

DB 

7B28! 

00 

00 

00 

00 

00 

00 

00 

00 

IF 

79Aa 

00 

29 

20 

20 

IC 

3F 

17 

26  BF 

7880 

24 

00 

21 

24 

17 

27 

17  15 

82 

7B30; 

00 

00 

00 

00 

00 

00 

00 

00 

27 

79B0 

IB 

08 

64 

2D 

15 

26 

00 

29  7B 

7888 

36 

77 

6E 

24 

27 

00 

24  BC 

C0 

7B38! 

00 

00 

00 

00 

00 

00 

00 

00 

2F 

79BB 

20 

20 

24 

E4 

3F 

17 

76 

20  80 

7890 

6E 

B0 

02 

30 

IE 

3C 

04  00 

12 

7B40: 

00 

00 

00 

00 

00 

00 

00 

00 

37 

79C0i 

04 

00 

29 

3C 

04 

28 

3C 

04  OB 

7898 

2C 

20 

9F 

8D 

12 

IF 

26  00 

CD 

7B48: 

00 

00 

00 

00 

00 

00 

00 

00 

3F 

79Ca 

00 

91 

05 

20 

27 

23 

3B 

2C  20 

78A0 

36 

E5 

23 

05 

20 

E5 

04  00 

7B 

7B50! 

00 

00 

00 

00 

00 

00 

00 

00 

47 

7900 

04 

00 

48 

39 

38 

60 

0C 

04  CI 

78A8 

40 

03 

24 

00 

23 

C5 

0C  96 

DD 

7B58. 

00 

00 

00 

00 

00 

00 

00 

00 

4F 

79DB 

i  00 

16 

06 

20 

20 

04 

38 

3F  CE 

78B0 

'  lA 

76 

04 

00 

24 

IC 

8E  12 

8D 

7B60: 

00 

00 

00 

00 

00 

00 

00 

00 

57 

79E0 

!  27 

00 

08 

0C 

0C 

IC 

IC 

04  36 

78  B8 

•  F^ 

04 

00 

E0 

0D 

16 

IF  04 

37 

7B6B! 

00 

00 

00 

00 

00 

00 

00 

00 

5F 

79EB 

!  00 

09 

04 

28 

28 

20 

07 

38  29 

78C0 

'  00 

24 

15 

IF 

04 

00 

32  IE 

Fl 

7B70! 

00 

00 

00 

00 

00 

00 

00 

00 

67 

79F0 

:  IE 

04 

00 

29 

20 

18 

08 

24  64 

78CS 

.  04 

00 

38 

0D 

04 

00 

12  04 

DB 

7B78: 

00 

00 

00 

00 

00 

00 

00 

00 

6F 

79FB 

:  3F 

36 

FD 

lA 

24 

24 

0C 

20  71 

78D0 

:  00 

2C 

20 

D7 

92 

26 

00  21 

9C 

7680! 

00 

00 

00 

00 

00 

00 

00 

00 

77 

7A00 

I     15 

04 

00 

24 

24 

0C 

0C 

15  41 

7808 

:  E4 

IE 

36 

76 

05 

20 

00  20 

BA 

7B88! 

00 

00 

00 

00 

00 

00 

00 

00 

7F 

7A0B 

;  15 

36 

36 

C4 

3F 

04 

00 

20  5F 

7aE0 

:  BC 

95 

36 

6F 

04 

00 

21  E4 

9A 

7B90: 

00 

00 

00 

00 

00 

00 

00 

00 

B7 

7A10 

:  20 

20 

IC 

3F 

36 

04 

16 

08  15 

7BE6 

!  17 

8E 

01 

17 

2D 

04 

00  28 

56 

7B98I 

00 

00 

00 

00 

00 

00 

00 

00 

BF 

7A1B 

!  3C 

28 

20 

15 

26 

00 

20 

24  CI 

7BF0 

:  20 

3F 

BE 

11 

36 

3F 

04  00 

5B 

7BA0S 

00 

00 

00 

00 

00 

00 

00 

00 

97 

7A20 

:  64 

20 

15 

96 

F2 

3F 

04 

00  3B 

78Fe 

!  3B 

24 

0D 

36 

36 

26 

00  38 

96 

7BA8? 

00 

00 

00 

00 

00 

00 

00 

00 

9F 

7A2e 

!  05 

20 

24 

3C 

2B 

20 

15 

36  46 

7900 

:  24 

2D 

96 

F6 

27 

00 

38  64 

A0 

7BB0: 

00 

00 

00 

00 

00 

00 

00 

00 

A7 

7A30 

I    Zh 

IE 

3F 

04 

00 

24 

24 

24  EC 

7908 

:  95 

32 

IE 

IC 

24 

00 

IS  20 

49 

7BBS: 

00 

00 

00 

00 

00 

00 

00 

00 

AF 

7A38 

!  20 

20 

96 

3B 

B7 

2A 

20 

04  SA 

7910 

:  2D 

36 

36 

26 

00 

38 

2S  70 

Fl 

7BC0: 

00 

00 

00 

00 

00 

00 

00 

00 

B7 

7A40 

E  00 

24 

24 

24 

20 

2D 

96 

3B  8B 

7918 

:  D7 

32 

0E 

05 

20 

04 

00  38 

DE 

7BCS: 

00 

00 

00 

00 

00 

00 

00 

00 

BF 

7A4B 

!  27 

00 

20 

24 

64 

20 

15 

9E  B7 

7920 

\    24 

2D 

36 

36 

26 

00 

04  20 

F3 

7BD0I 

00 

00 

00 

00 

00 

00 

00 

00 

C7 

7A50 

:  2B 

35 

F6 

3F 

04 

00 

24 

24  67 

7928 

!   00 

04 

B0 

13 

04 

^0 

15  C7 

75 

7BD8: 

00 

00 

00 

00 

00 

00 

00 

00 

CF 

7A5a 

!  24 

40 

31 

36 

3F 

6F 

11 

36  4C 

7930 

!  28 

28 

20 

00 

25 

3B 

B7  04 

C2 

7BE0: 

00 

00 

00 

00 

00 

00 

00 

00 

07 

7A60 

;  04 

00 

29 

E5 

24 

24 

07 

28  C2 

7938 

e  00 

lA 

0C 

0C 

IC 

IC 

04  00 

4D 

7BES: 

00 

00 

00 

00 

00 

00 

00 

00 

OF 

7A68 

:  25 

00 

A8 

2D 

20 

24 

3C 

28  0A 

7940 

:  C0 

2C 

35 

F6 

16 

04 

00  00 

75 

7BF0: 

00 

00 

00 

00 

00 

00 

00 

00 

E7 

7A70 

:  25 

00 

24 

24 

24 

40 

Fl 

IE  17 

7948 

!  00 

25 

E4 

IE 

36 

36 

0D  24 

CB 

7BF8: 

00 

00 

00 

00 

00 

00 

00 

00 

EF 

7A78 

!  IE 

0£ 

0E 

0E 

04 

00 

20 

2D  4A 

7950 
7958 

:  00 
s  00 

60 
23 

IC 
24 

37 
2D 

36 
B6 

36 
32 

65  24 

3F  24 

CB 
8C 

Pro< 

3ram  4 

:  SHAPETABLE5X7 

7A80 
7ASa 

:  DC 
!  24 

IB 
0E 

24 
15 

24 
66 

24 
28 

00 
30 

24 
36 

24  FE 
36  C0 

7960 

•  00 

21 

3C 

38 

36 

36 

2E  05 

92 

Please 

refer  to  the  '^ 

\^LX' 

'  artcfe  elsewhere  in 

7A90 

:  26 

00 

24 

24 

24 

0E 

0E 

0E  E2 

7968 

:  20 

00 

08 

40 

03 

3F 

36  F5 

E7 

this  iss 

je  before 

entering 

the 

followinc 

7A9B 

!  96 

21 

24 

24 

24 

00 

20 

24  60 

7970 

t  36 

2D 

04 

00 

60 

38 

37  36 

02 

prog  re 

im, 

7AA0 

:  64 

20 

15 

36 

36 

IE 

3F 

04  G5 

7978 

:  36 

04 

00 

08 

40 

03 

3F  36 

CA 

7AA8 

!  00 

24 

24 

24 

20 

AD 

36 

IE  18 

7980 

;  36 

2E 

25 

24 

00 

28 

24  IF 

09 

7800 

:  64 

00 

CA 

00 

01 

00 

09 

00 

BE 

7AB0 

:  3F 

04 

00 

20 

24 

64 

20 

15  6A 

7988 

I    36 

36 

6E 

24 

04 

00 

24  3C 

08 

7808 

:  E7 

00 

F5 

00 

03 

01 

10 

01 

EB 

7AB8 

!  36 

B6 

IF 

67 

21 

00 

24 

24  46 

7990 

\    0D 

96 

lA 

36 

08 

IF 

04  00 

IB 

7810 

:  17 

01 

IE 

01 

24 

01 

31 

01 

29 

7AC0 

:  24 

20 

AD 

F6 

3F 

0E 

0E 

0E  94 

7998 

'  CI 

08 

30 

36 

F6 

07 

20  00 

EB 

7818 

:  39 

01 

3E 

01 

44 

01 

48 

01 

75 

7AC8 

!  04 

00 

A8 

20 

05 

20 

IC 

3F  C7 

79A0 

I     04 

E0 

09 

IF 

36 

36 

6E  24 

6C 

7820 

:  4E 

01 

5C 

01 

64 

01 

71 

01 

IF 

7AD0 

:  07 

20 

0C 

20 

15 

04 

00 

09  67 

79A8 

00 

11 

3E 

27 

24 

24 

04  00 

D3 

782B 

!  7C 

01 

87 

01 

92 

01 

9F 

01 

71 

7AD8 

I    24 

24 

24 

3F 

40 

25 

00 

20  80 

79B0 

21 

24 

17 

07 

30 

36 

36  0D 

64 

7830 

:  A9 

01 

B7 

01 

C2 

01 

C9 

01 

EB 

7AE0 

:  24 

24 

40 

31 

36 

36 

IE 

3F  B3 

7988 

24 

00 

24 

IC 

36 

36 

6E  SC 

A7 

783B 

:  02 

01 

09 

01 

E2 

01 

E9 

01 

0E 

7AE8 

'  04 

00 

09 

07 

38 

20 

24 

6C  68 

79C0 

0C 

24 

24 

00 

21 

24 

3F  36 

95 

7840 

:  F3 

01 

03 

02 

0F 

02 

IE 

02 

AA 

7AF0 

:  09 

36 

36 

IE 

04 

00 

20 

24  25 

79C8 

36 

2E 

25 

04 

00 

28 

E0  37 

E0 

7B48 

:  28 

02 

35 

02 

41 

02 

4A 

02 

3D 

7AF8 

1  24 

40 

31 

36 

36 

IE 

IF 

0C  51 

79D0 

36 

36 

04 

00 

21 

3C 

F0  36 

FE 

7850 

:  56 

02 

62 

02 

6A 

02 

72 

02 

9B 

7B00 

24 

00 

64 

0C 

0C 

0C 

FC 

IB  FB 

79D8 

36 

0E 

3D 

28 

24 

00 

05  20 

DF 

7858 

:  7E 

02 

86 

02 

92 

02 

9E 

02 

D5 

7B0S 

.  76 

8E 

71 

26 

00 

09 

24 

3C  17 

79E0 

IC 

37 

36 

36 

0D 

24 

00  38 

0B 

7860 

:  A9 

02 

B3 

02 

BE 

02 

CA 

02 

D2 

7B10 

38 

20 

40 

31 

IE 

04 

00 

20  16 

79E8 

60 

B5 

32 

IE 

27 

00 

12  24 

23 

7868 

!  07 

02 

DF 

02 

EA 

02 

F6 

02 

31 

7B18 

20 

DC 

IB 

0C 

0C 

0C 

0C 

3C  E5 

79F0! 

24 

3C 

0D 

06 

00 

31 

3E  27 

6F 

7870 

£  02 

03 

00 

03 

17 

03 

23 

03 

03 

7B20 

:  3F 

27 

00 

09 

E5 

24 

24 

2C  45 

79FaJ 

24 

24 

0D 

36 

06 

00 

21  24 

A2 

7878 

:  2A 

03 

32 

03 

38 

03 

40 

03 

07 

7B2B 

:  04 

00 

48 

09 

IC 

IC 

IC 

IC  60 

7A00! 

IF 

36 

36 

0E 

05 

20 

00  21 

B3 

7880 

:  45 

03 

4B 

03 

58 

03 

63 

03 

07 

7B30 

:  04 

00 

29 

24 

24 

24 

27 

00  90 

7A08! 

24 

IF 

36 

36 

2E 

28 

26  00 

5F 

788B 

;  6C 

03 

76 

03 

81 

03 

8A 

03 

9F 

7B38 

I    40 

IB 

28 

26 

70 

0E 

04 

00  A0 

7A10: 

2C 

20 

IF 

B6 

32 

0D 

24  00 

80 

7B90 

:  97 

03 

9F 

03 

A6 

03 

AD 

03 

Dl 

7B40 

!  12 

2D 

20 

04 

00 

40 

40 

18  0B 

7A181 

12 

24 

64 

FC 

36 

00 

2C  20 

A5 

7B9B 

:  B7 

03 

BE 

03 

C7 

03 

CF 

03 

IB 

7B48 

:  70 

04 

00 

29 

00 

07 

20 

3F  0F 

7A20: 

3F 

96 

32 

2D 

04 

00 

32  00 

F7 

7BA0 

;  08 

03 

E3 

03 

ED 

03 

F4 

03 

03 

7B50 

:  17 

05 

40 

IB 

20 

15 

04 

00  63 

7A28! 

00 

00 

00 

00 

00 

00 

00  00 

ID 

7BAB 

:  FD 

03 

07 

04 

0F 

04 

18 

04 

37 

7B58 

!  29 

2D 

20 

E4 

3F 

36 

26 

40  E0 

7A30i 

00 

00 

00 

00 

00 

00 

00  00 

25 

78B0 

:  23 

04 

2D 

04 

37 

04 

41 

04 

6A 

7B60 

:  IB 

24 

00 

29 

E5 

IB 

24 

0C  EE 

7A38! 

00 

00 

00 

00 

00 

00 

00  00 

20 

78B8 

!  49 

04 

4F 

04 

57 

04 

61 

04 

0B 

7B6B 

:  20 

15 

04 

00 

20 

64 

20 

ID  C5 

7A40! 

00 

00 

00 

00 

00 

00 

00  00 

35 

78C0 

:  73 

04 

7C 

04 

86 

04 

90 

04 

AS  j 

7B70 

I    20 

96 

36 

3E 

27 

00 

29 

25  78 

7A4B: 

00 

00 

00 

00 

00 

00 

00  00 

30 

78C8 

I  99 

04 

09 

04 

18 

08 

24 

24 

36 

7B78 

'  0B 

3F 

3F 

26 

60 

2D 

15 

04  73 

7A50! 

00 

00 

00 

00 

00 

00 

00  00 

45 

7800 

:  00 

01 

40 

18 

20 

6C 

36 

04 

AE 

7BS0 

00 

21 

24 

3C 

05 

60 

20 

06  E2 

7A58! 

00 

00 

00 

00 

00 

00 

00  00 

4D 

7808 

i  00 

21 

3C 

0C 

3C 

0C 

6C 

36 

7B 

7B88 

27 

00 

29 

2D 

36 

3F 

27 

IB  20 

7A60I 

00 

00 

00 

00 

00 

00 

00  00 

55 

78E0 

!  6F 

17 

3E 

0D 

17 

26 

00 

09 

42 

7B90 

08 

24 

2C 

20 

36 

26 

00 

24  5B 

7A68: 

00 

00 

00 

00 

00 

00 

00  00 

5D 

78E8 

:  IC 

20 

0C 

IC 

37 

IC 

07 

28 

D6 

7B98 

24 

24 

95 

AD 

36 

26 

00 

29  AB 

7A70i 

00 

00 

00 

00 

00 

00 

00  00 

65 

7SF0 

:  28 

E5 

16 

04 

00 

2C 

28 

28 

9B 

7BA0. 

E5 

24 

3C 

0C 

20 

00 

72 

20  EE 

7A78I 

00 

00 

00 

00 

00 

00 

00  00 

60 

78FS 

:  28 

20 

DF 

33 

25 

BO 

92 

32 

EB 

7BA8 

20 

24 

24 

27 

00 

24 

24 

24  AC 

7Ae0: 

00 

00 

00 

00 

00 

00 

00  00 

75 

7900 

:  25 

04 

00 

29 

00 

IC 

DF 

6C 

IE 

7BB0: 

40 

F2 

IE 

0E 

0E 

26 

00 

29  El 

76     COMPUTEI     May  1987 


7BB8: 

3D 

20 

24 

24 

27 

00 

24 

24 

C2 

7990: 

IC 

04 

00 

92 

24 

24 

24 

6C 

22 

7C40: 

36 

F6 

3F 

27 

0C 

35 

04 

00  A9 

7BC0: 

AD 

36 

6E 

24 

24 

27 

00 

21 

0B 

7998: 

31 

36 

0E 

IF 

27 

00 

21 

24 

05 

7C4S: 

24 

24 

24 

0C 

0C 

20 

15 

13  F5 

7BCa: 

24 

IC 

0D 

AD 

36 

26 

00 

20 

BF 

79  A0: 

24 

6F 

49 

F6 

IE 

IE 

04 

00 

88 

7C50: 

36 

3F 

3F 

6F 

4A 

31 

36 

04  9A 

7BD0; 

64 

20 

15 

36 

IE 

3F 

04 

00 

41 

79A8: 

49 

20 

E0 

3F 

3F 

60 

0C 

E5 

15 

7C58! 

00 

20 

20 

2D 

20 

E4 

3F 

3F  67 

7BDS: 

12 

24 

24 

24 

20 

AD 

36 

IE 

53 

79B0: 

63 

20 

IC 

04 

00 

09 

20 

28 

0B 

7C60! 

36 

26 

16 

40 

24 

3C 

00 

2D  5E 

7BE0: 

3F 

04 

00 

20 

64 

20 

15 

36 

B2 

79B8: 

20 

IC 

IC 

F7 

IE 

76 

04 

00 

98 

7C68! 

AD 

36 

04 

00 

09 

20 

20 

F8  96 

7BEa: 

36 

E6 

38 

27 

00 

21 

24 

IC 

17 

79C0! 

09 

24 

24 

3C 

17 

4D 

28 

2D 

F4 

7C70! 

DB 

IC 

24 

24 

0C 

0C 

20 

AD  BD 

7BF0: 

0D 

AD 

04 

00 

29 

20 

E0 

3F 

59 

79Ce! 

9F 

36 

36 

04 

00 

92 

24 

24 

06 

7C78: 

04 

00 

20 

20 

20 

20 

24 

24  42 

7BFa: 

07 

60 

2D 

04 

00 

71 

05 

E0 

22 

79D0S 

24 

0C 

0C 

AD 

15 

F6 

IE 

E7 

OD 

7CS0! 

E4 

3F 

3F 

AF 

36 

36 

36 

04  99 

7C00: 

23 

24 

67 

AC 

2A 

04 

00 

20 

CC 

7908: 

04 

00 

IS 

08 

64 

0C 

2D 

20 

2C 

7C88: 

00 

2D 

2D 

20 

DC 

DB 

23 

24  06 

7C0S: 

24 

4D 

36 

76 

if 

27 

00 

09 

33 

79E0: 

9F 

0E 

F6 

IE 

3F 

20 

00 

49 

AB 

7C90: 

20 

E5 

IB 

24 

2C 

20 

20 

23  04 

7C10: 

0C 

0C 

24 

DF 

33 

76 

04 

00 

10 

79E8: 

24 

24 

3C 

BF 

0D 

4a 

2D 

04 

62 

7C9ai 

00 

24 

24 

20 

E5 

IB 

24 

2C  02 

7C18: 

29 

20 

56 

05 

20 

24 

DF 

33 

4D 

79F0: 

00 

01 

20 

24 

3C 

40 

09 

17 

AA 

7CA0! 

20 

20 

23 

00 

09 

2D 

20 

20  97 

7C20: 

36 

04 

00 

0C 

0C 

IC 

IC 

4D 

4C 

79F8: 

36 

F6 

27 

00 

09 

24 

3F 

20 

21 

7CA8! 

3C 

FF 

9A 

IC 

24 

24 

0C 

0C  AA 

7C28: 

Fl 

16 

0E 

04 

00 

12 

2D 

20 

64 

7A00: 

64 

25 

B4 

A9 

36 

IE 

04 

00 

D3 

7CB0I 

20 

AD 

04 

00 

24 

24 

24 

24  4A 

7C30: 

24 

IC 

IC 

40 

Fl 

04 

00 

2D 

67 

7A08! 

29 

28 

28 

28 

F8 

IB 

6F 

AA 

E0 

7CBe: 

4D 

49 

36 

36 

36 

36 

C4 

18  01 

7C3a: 

2D 

DC 

63 

0C 

0C 

3F 

3F 

04 

0C 

7A10S 

11 

15 

25 

00 

92 

49 

24 

24 

90 

7CC0: 

08 

3F 

3F 

04 

00 

29 

2D 

E5  9A 

7C40: 

00 

09 

E5 

23 

IC 

0C 

64 

25 

69 

7A18: 

24 

24 

DF 

0E 

36 

0E 

00 

05 

0E 

7CCS: 

23 

24 

24 

24 

3F 

40 

23 

00  9C 

7C4a: 

00 

09 

24 

24 

24 

04 

00 

29 

A4 

7A20: 

20 

64 

04 

00 

29 

05 

20 

24 

S0 

7CD0! 

70 

2D 

05 

20 

24 

24 

24 

6F  39 

7C50: 

05 

20 

0C 

IC 

E4 

27 

00 

40 

IB 

7A28: 

D8 

17 

36 

6E 

4A 

2D 

20 

24 

68 

7CD8I 

04 

00 

24 

24 

24 

24 

4D 

49  30 

7C5a: 

IB 

IB 

08 

0C 

15 

15 

05 

20 

4C 

7A30! 

IC 

04 

00 

25 

E4 

24 

0C 

0C 

62 

7CE0: 

IE 

IE 

IE 

IE 

6F 

72 

0E 

0€  85 

7C60: 

00 

29 

2D 

3a 

3F 

67 

20 

05 

C3 

7A38: 

20 

15 

0E 

36 

17 

36 

25 

00 

0A 

7CEa! 

04 

00 

20 

20 

20 

DC 

DB 

23  14 

7C6a: 

38 

3F 

67 

2D 

05 

38 

3F 

67 

FB 

7A40: 

IB 

08 

0E 

0E 

24 

24 

24 

24 

04 

7CF0! 

24 

24 

24 

04 

00 

24 

24 

24  C6 

7C70: 

2D 

04 

00 

09 

24 

24 

F4 

IE 

4B 

7A48; 

20 

20 

04 

00 

40 

18 

28 

2D 

7F 

7CF81 

24 

0E 

0E 

0E 

26 

08 

0C 

0C  9F 

7C7a: 

4D 

El 

04 

00 

18 

08 

0E 

0E 

IC 

7A50: 

2D 

E5 

IC 

96 

2A 

20 

00 

40 

54 

7D00: 

36 

36 

36 

36 

04 

00 

24 

24  3A 

7CB0: 

2C 

0C 

IF 

24 

24 

00 

09 

E0 

CC 

7A58! 

IB 

28 

28 

B0 

12 

07 

20 

2D 

BD  1 

7008: 

24 

24 

0E 

0E 

0E 

0E 

0E 

0E  93 

7Ca8: 

IC 

05 

30 

25 

AB 

2A 

04 

00 

IF 

7A60: 

2D 

25 

00 

49 

24 

24 

24 

24 

E7 

7D10! 

36 

04 

18 

08 

24 

24 

24 

00  A4 

7C70: 

09 

28 

28 

3a 

3C 

B0 

3F 

04 

C7 

7A6B! 

IE 

IE 

4D 

El 

04 

00 

49 

IS 

86 

7D18: 

09 

20 

05 

28 

20 

24 

E4 

IC  70 

7C7B: 

00 

25 

24 

2C 

IF 

05 

60 

AD 

90 

7A70: 

08 

04 

38 

3F 

44 

09 

56 

2D 

85 

7D20! 

3F 

17 

17 

36 

36 

0E 

04 

00  B8 

7CA0: 

96 

F2 

07 

20 

00 

20 

00 

00 

05 

7A78: 

04 

00 

2D 

20 

2D 

DC 

DB 

0C 

88 

7D28: 

24 

24 

24 

24 

20 

20 

AD 

36  B4 

7AB0: 

0C 

0C 

FD 

38 

38 

38 

28 

2D 

El 

7D30: 

IE 

3F 

3F 

04 

00 

09 

2D 

00  BO 

Program  5 

:  SHAPETABLE7X9   1 

7A8Br 

20 

25 

00 

40 

18 

05 

28 

15 

9B 

7D3SI 

IC 

IC 

00 

24 

24 

IC 

IC 

3F  33 

please  refer  to  the  "' 

\/\lX' 

'  article  elsewhere  in  | 

7A90: 

15 

2D 

20 

18 

08 

IE 

3F 

38 

50 

7D40! 

IE 

IE 

36 

36 

0E 

04 

00 

24  A0 

this  issue  before 

entering 

the 

following 

7A98: 

38 

17 

04 

00 

49 

04 

IS 

08 

82 

7D48! 

24 

24 

24 

2D 

20 

AD 

36 

IE  60 

program. 

7AA0: 

24 

24 

24 

00 

40 

40 

18 

08 

70 

7D50! 

3F 

3F 

ao 

0E 

0E 

0E 

04 

00  FD 

7AAB: 

24 

40 

36 

04 

00 

09 

24 

3C 

B2 

7D58! 

70 

20 

2D 

05 

20 

E4 

3F 

3F  IF 

7800: 

80 

00 

02 

01 

10 

01 

20 

01 

47 

7AB0: 

27 

28 

35 

0E 

35 

36 

44 

28 

FD 

7D60i 

07 

20 

64 

20 

2D 

13 

04 

00  0C 

7808: 

2E 

01 

3B 

01 

46 

01 

54 

01 

A7 

7ABe: 

04 

38 

37 

IC 

IC 

24 

00 

36 

2a 

70681 

49 

24 

24 

24 

24 

3F 

6F 

09  DD 

7810; 

61 

01 

73 

01 

7A 

01 

87 

01 

58 

7AC0: 

04 

00 

28 

20 

20 

05 

20 

IC 

69 

7D70! 

2D 

04 

00 

29 

20 

2D 

20 

24  18 

7818: 

93 

01 

9E 

01 

AB 

01 

B5 

01 

AC 

7AC8: 

3F 

3F 

07 

20 

0C 

20 

2D 

E5 

65 

7078: 

24 

24 

DF 

DB 

36 

36 

36 

26  65 

7820: 

C0 

01 

CO 

01 

DA 

0i 

E7 

01 

27 

7AD0: 

B3 

B6 

B6 

IF 

04 

20 

04 

20 

DE 

7080! 

00 

49 

IC 

IC 

IC 

24 

24 

6C  39 

7828: 

Fl 

01 

FC 

01 

08 

02 

14 

02 

74 

7  ADS: 

04 

20 

00 

49 

09 

05 

E0 

17 

Al 

7DS8! 

49 

31 

36 

36 

IE 

IE 

04 

00  10 

7830: 

24 

02 

33 

02 

40 

02 

4C 

02 

DE 

7AE0: 

DF 

63 

0C 

0C 

0C 

0C 

0C 

DF 

69 

7D90: 

24 

24 

24 

24 

40 

49 

36 

36  9F 

7838: 

57 

02 

63 

02 

6E 

02 

7A 

02 

54 

7AE8: 

E3 

17 

0E 

04 

00 

29 

6D 

El 

F8 

7D98! 

36 

36 

07 

38 

38 

20 

B4 

lA  66 

7840: 

Be 

02 

9C 

02 

A4 

02 

AD 

02 

B5 

7AF0: 

27 

65 

OF 

IF 

17 

2E 

40 

60 

13 

70  A0: 

IE 

04 

00 

64 

0C 

0C 

IC 

IC  06 

7848: 

C2 

02 

OB 

02 

ED 

02 

00 

03 

31   , 

7AFB: 

IF 

07 

20 

0C 

2D 

15 

26 

00 

0E 

7DA8: 

IC 

6C 

49 

31 

IE 

IE 

16 

0E  AC 

7850: 

07 

03 

10 

03 

19 

03 

33 

03 

F5 

7B00: 

40 

C0 

18 

08 

0C 

24 

00 

49 

05 

7DB0! 

0E 

26 

00 

49 

24 

24 

IC 

IC  06 

7858: 

3E 

03 

44 

03 

48 

03 

4E 

03 

E7 

7B0B: 

IC 

IC 

24 

24 

0C 

0C 

04 

00 

73 

70B8: 

IC 

6C 

49 

31 

IE 

IE 

04 

00  8A 

7860: 

56 

03 

6A 

03 

74 

03 

84 

03 

76 

7B10: 

49 

0C 

0C 

24 

24 

IC 

IC 

04 

40 

7DC0: 

20 

20 

20 

DC 

OB 

63 

0C 

0C  Al 

7868: 

95 

03 

A5 

03 

B4 

03 

C7 

03 

0E 

7B18: 

00 

60 

0C 

20 

0E 

0E 

DE 

23 

05 

7DCS: 

0C 

0C 

0C 

3C 

3F 

3F 

27 

00  57 

7870: 

03 

03 

E7 

03 

F8 

03 

00 

04 

11 

7B20: 

24 

38 

3F 

04 

18 

08 

0E 

0E 

6A 

7000: 

09 

20 

E5 

IB 

24 

24 

24 

2C  30 

7B7S: 

08 

04 

13 

04 

IE 

04 

29 

04 

68 

7B28: 

2D 

0C 

0C 

96 

3F 

07 

18 

08 

Fl 

7DD8: 

20 

04 

00 

48 

49 

El 

IC 

iC  16 

7880: 

35 

04 

48 

04 

59 

04 

6C 

04 

0E 

7B30: 

24 

04 

00 

49 

20 

24 

3F 

67 

46 

7DE0! 

IC 

IC 

IC 

04 

00 

29 

20 

24  07 

7883: 

7A 

04 

89 

04 

99 

04 

A4 

04 

53 

7B38: 

09 

24 

95 

2A 

25 

00 

92 

29 

89 

7DEai 

24 

24 

24 

3F 

27 

00 

40 

40  71 

7890: 

B4 

04 

C5 

04 

D0 

04 

DA 

04 

26 

7B40: 

20 

3C 

04 

00 

40 

IB 

28 

2D 

B6 

7DF0: 

40 

48 

El 

3F 

3F 

17 

04 

00  AC 

7898: 

EA 

04 

F5 

04 

06 

05 

IS 

05 

78 

7B48: 

20 

25 

00 

09 

04 

00 

60 

0C 

9C 

7DFa: 

2D 

2D 

2D 

04 

00 

40 

40 

40  70 

78  A0: 

28 

05 

35 

05 

47 

05 

58 

05 

El 

7B50: 

0C 

0C 

0C 

0C 

04 

00 

29 

20 

32 

7E00! 

49 

IC 

24 

00 

29 

60 

3C 

05  A9 

78AB; 

68 

05 

73 

05 

81 

05 

90 

05 

14 

7B5S: 

20 

20 

24 

24 

E4 

3F 

3F 

17 

6E 

7E08: 

20 

24 

3F 

BF 

17 

36 

04 

00  9B 

7880: 

A3 

05 

B3 

05 

C0 

05 

00 

05 

3C 

7B60: 

36 

36 

36 

0C 

0C 

0C 

0C 

0C 

3C 

7E10: 

24 

24 

65 

20 

15 

36 

F6 

3F  36 

7888: 

08 

05 

E5 

05 

EE 

05 

F8 

05 

68 

7B68: 

04 

00 

29 

2D 

E5 

23 

24 

24 

ai 

7E18: 

07 

20 

18 

18 

08 

24 

24 

00  3E 

7SC0: 

FD 

05 

04 

06 

10 

06 

20 

06 

Bl 

7B70: 

24 

IE 

04 

00 

20 

20 

2D 

DC 

D6 

7E20: 

29 

20 

05 

FS 

DB 

24 

64 

20  92 

7aC8: 

2B 

06 

3B 

06 

48 

'06 

53 

06 

9F 

7B78: 

OB 

63 

0C 

0C 

65 

0C 

E4 

3F 

DC 

7E28! 

AD 

04 

00 

29 

60 

3C 

05 

20  16 

7SD0: 

65 

06 

71 

06 

7A 

06 

84 

06 

7F 

7B80: 

3F 

17 

04 

00 

70 

2D 

2D 

05 

F4 

7E30: 

3C 

05 

20 

24 

96 

IB 

3F 

17  89 

78DS: 

91 

06 

98 

06 

A4 

06 

AE 

06 

28 

7888: 

20 

E4 

3F 

27 

18 

IB 

0C 

2D 

89 

7E38: 

36 

26 

00 

29 

20 

E5 

DB 

23  48 

78E0: 

B9 

06 

ca 

06 

D9 

06 

El 

06 

5A 

7B90: 

2D 

15 

36 

04 

00 

49 

09 

24 

C5 

7E40! 

2D 

20 

23 

E4 

3F 

BF 

26 

00  37 

7aE8: 

EC 

06 

F7 

06 

02 

07 

0C 

07 

7C 

7B98: 

2C 

IF 

3F 

3F 

0C 

0C 

0C 

0C 

FD 

7E4B: 

09 

24 

24 

3F 

40 

FD 

20 

64  32 

78F0: 

19 

07 

25 

07 

36 

07 

43 

07 

A0 

7BA0: 

0C 

36 

36 

04 

00 

70 

2D 

20 

7B 

7E50: 

AD 

04 

00 

12 

0E 

20 

20 

20  E5 

7aFa: 

4E 

07 

56 

07 

60 

07 

6A 

07 

09 

7BA8: 

05 

20 

E4 

3F 

3F 

27 

24 

2C 

C5 

7E58: 

24 

24 

24 

IE 

07 

38 

BF 

36  A5 

7900! 

BB 

07 

20 

64 

AD 

15 

15 

15 

C5 

7BB0: 

2D 

20 

25 

00 

29 

20 

20 

20 

A6 

7E60: 

76 

20 

05 

20 

00 

24 

24 

24  S3 

7908! 

04 

40 

IS 

IE 

9F 

F2 

27 

00 

09 

7BB8: 

E4 

3F 

3F 

37 

36 

04 

40 

18 

A7 

7E68! 

24 

96 

0A 

0C 

AD 

15 

36 

26  73 

7910: 

92 

05 

20 

24 

24 

24 

2D 

AD 

8D 

73C0: 

24 

0C 

2D 

2D 

15 

04 

00 

09 

07 

7E70: 

00 

49 

24 

24 

3C 

05 

18 

0e  B4 

7918: 

IE 

3F 

96 

2D 

05 

20 

04 

00 

40 

7BCBi 

24 

64 

0C 

0C 

0C 

3C 

3F 

3F 

3C 

7E7S: 

04 

00 

12 

0E 

20 

20 

20 

24  ID 

7920! 

92 

29 

3C 

2C 

24 

24 

IC 

6F 

4A 

7BD0! 

37 

04 

00 

29 

2D 

2D 

20 

E4 

3A 

7Ee0! 

24 

24 

04 

00 

24 

24 

24 

24  37 

7928s 

49 

Fl 

IE 

IE 

04 

00 

29 

05 

59  ' 

7808: 

3F 

3F 

17 

36 

04 

40 

IB 

24 

FA 

7E88: 

96 

49 

Fl 

IE 

6F 

72 

0E 

04  AS 

7930: 

20 

D7 

23 

0C 

E5 

07 

20 

64 

3E 

7BE0: 

0C 

20 

2D 

15 

36 

04 

00 

70 

52 

7E90: 

00 

09 

24 

24 

24 

24 

04 

00  50 

7938: 

AD 

04 

00 

09 

E5 

3B 

20 

2D 

ID 

7BE8t 

2D 

2D 

05 

20 

24 

3F 

3F 

3F 

40 

7E9S: 

24 

24 

2C 

AD 

36 

36 

4D 

24  5A 

7940: 

E5 

IB 

0C 

0C 

25 

00 

09 

2D 

97 

7BF0: 

20 

64 

2D 

2D 

15 

36 

04 

00 

13 

7EA0! 

24 

IC 

27 

00 

24 

24 

AC 

0C  B2 

7948: 

E0 

3F 

07 

20 

05 

28 

20 

74 

DB 

7BF8: 

01 

18 

08 

04 

40 

18 

04 

00 

22 

7EA8! 

20 

15 

36 

36 

04 

00 

29 

2D  4B 

7950: 

2D 

3C 

04 

00 

92 

49 

09 

24 

59 

7C00: 

92 

61 

24 

27 

40 

IB 

20 

00 

34 

7EB0! 

05 

20 

24 

IC 

3F 

BF 

36 

26  0A 

7958: 

24 

24 

IC 

FF 

17 

0D 

36 

26 

69 

7C08: 

49 

El 

IC 

IC 

IC 

0C 

0C 

0C 

98 

7EBB: 

00 

92 

24 

24 

24 

24 

0E 

05  F3 

7960! 

00 

09 

2D 

28 

20 

3C 

3F 

3F 

6D 

7C10: 

0C 

04 

00 

40 

IS 

2D 

2D 

20 

11 

7EC0: 

28 

AD 

36 

F6 

3F 

07 

20 

00  C9 

7968: 

36 

0E 

C4 

IB 

08 

64 

0C 

AD 

AB 

7Ci8: 

04 

38 

3F 

3F 

27 

00 

09 

05 

4D 

7ECa: 

92 

49 

09 

24 

24 

24 

24 

IE  DC 

7970: 

15 

26 

00 

29 

05 

F8 

23 

24 

80 

7C20: 

28 

28 

28 

E0 

IC 

IC 

IC 

04 

D7 

7ED0S 

07 

38 

BF 

36 

76 

2D 

05 

20  40 

7978: 

24 

00 

24 

24 

24 

95 

2A 

28 

38 

7C2a! 

00 

49 

04 

20 

0C 

0C 

0C 

E4 

83 

7ED8! 

00 

24 

24 

74 

0C 

20 

15 

04  ED 

7980! 

F0 

12 

0E 

0E 

05 

20 

00 

05 

C0 

7C30: 

3F 

3F 

17 

26 

00 

29 

2D 

E5 

C2 

7EE0: 

00 

70 

20 

20 

E0 

E7 

E7 

0C  F4 

7988! 

28 

28 

15 

15 

C4 

D8 

24 

E4 

44 

7C3e: 

DB 

23 

24 

24 

64 

2D 

2D 

13 

F5 

7EE8: 

20 

AD 

04 

00 

49 

2D 

F8 

23  7C 
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7EF0: 
7EF8! 
7F00; 
7F0S; 
7F10: 
7F18: 
7F20: 
7F2e: 
7F30: 
7F38: 
7F40: 
7F4e: 
7F50: 
7F5e: 
7F60i 
7F68: 
7F70; 
7F78: 
7FS0: 
7Fa8: 


24  24 
2D  05 
04  00 
36  F6 
36  F6 
00  0C 
IE  96 
2D  20 
36  0E 
E5  DB 
3F  04 
0C  24 
24  18 
20  64 
40  18 
20  00 
36  36 
36  36 
35  36 
24  04 


B4  3B 
20  24 
09  IC 
04  00 
6F  29 
0C  25 
15  04 
24  24 
20  05 
0C  0C 
00  49 
0C  2D 
08  24 
IC  24 
40  18 
24  24 
2E  24 
36  2E 
36  36 
00  00 


4D  25 
FC  DB 
IC  24 
20  24 
05  20 
3F  38 
00  12 
24  DF 
20  00 
0C  05 
2D  DC 
04  00 
04  00 
IC  3F 
60  AD 
24  24 
24  24 
24  24 
2E  24 


DB 
7D 


00  29  7B 
36  36  0E 
6C  09  37 
6C  11 
24  24 
68  49  E2 
0E  20  48 
IB  36  99 
2D  20  4C 
38  3F  87 

23  E4  7C 
49  20  7D 
29  2D  4A 
04  00  2C 
15  2D  20 
35  36  90 

24  35  4F 
24  24  E7 
24  24  40 


00  FF  00  00  9A 


Program  6:  DISPLAYSHAPE 

For  instructions  on  entering  this  program, 
piease  refer  to  "COMPUTE! 's  Guide  to  Typing 
\n  Programs"  elsewhere  in  this  issue. 


1:  RDT^  0:  HC 


12 

NAME 

N$: 


2£  10  HOME  :  TEXT 
?2  20  HER  :  SCALE= 

OLOR=  3 
fl0  30  POKE  232,0:  POKE  233,1 
F8  40  VTAB  22:  PRINT  "ENTER 
OF  TABLE; ";  INPUT  ""; 

PRINT  "ENTER  DRIVE  #: 

GET  AN*: AN  =  VAL  (AN*) 
4C  50  PRINT  AN 
9E  60  PRINT  CHR$  {4> ; "BLOAD 

; ",A2B672,D";AN 
EJ  70  X  =  1:Y  =  1 
3D  80  FOR  I  =  0  TO  200  STEP 
46  90  FOR  J  =  1  TO  20 
25  100  X  =  X  +  10:  IF  J  ==  1 


";N* 

20 
THEN 


COMPUTEI 
Subscriber  Services 

Please  help  us  serve  you  better.  If  you 
need  to  contact  us  for  any  of  the 
reasons  listed  below,  write  to  us  at: 

COMPUTEI  Magazine 

RO.  Box  10954 

Des  Moines,  lA  50340 

or  coll  the  Toll  Free  number  listed  betow. 

Change  Of  Address.  Please  allow  us 
6-8  weeks  to  effect  the  change;  send 
your  current  moiling  label  along  with 
your  new  address. 

Renewal  Should  you  wish  to  renew  your 
COMPUTEt  subscription  before  we 
remind  you  to,  send  your  current  mailing 
label  with  payment  or  charge  number 
or  coll  the  Toll  Free  number  listed  below. 

New  Subscription.  A  one  year  (12 
month)  US  subscription  to  COMPUTEI  is 
$24.00  (2  years,  $45.00;  3  years,  $65.00. 
For  subscription  rates  outside  the  US, 
see  staff  page).  Send  us  your  name 
and  address  or  ca[l  the  Toll  Free  number 
fisted  beiow. 

DeJIvery  Problems.  If  you  receive  dupli- 
cate issues  of  COMPUTEt,  if  you  experi- 
ence late  delivery  or  if  you  have  prob- 
lems with  your  subscription,  please  call 
the  Toil  Free  number  listed  below. 

COMPUTE! 
1-800-247-5470 

tnIA  1 -800-532-127  2 


X    =     1:Y    =    Y    +    15 

F9  110  IF  I  +  J  >  PEEK  (28672)  T 
HEN  150 

CS  120  DRAW  I  +  J  AT  X,Y 

M  130  NEXT  J 

E5  140  NEXT  I 

Ifl  150  HOME  :  VTAB  22;  PRINT  "PL 
EASE  PRESS  A  KEY  ";:  GET 
AN$:  TEXT  :  HOME  :  END 

Program  7:  BARCHART 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE I's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 


110 
120 
130 

140 
150 


iMAX 


0 


NB  »  WB)  /  CN 


WS)  <  280  T 


5a  160 


48  170 

2A  180 

?B  190 

99  200 

EB  210 

11  220 

5e  230 

IC  240 

FC  250 

7D  260 


91  270 
EE  280 
5D  281 

FB  282 
4B  283 


fl3  284 
*3  285 
FF  290 
IV  300 

F5  310 
21  320 
31  330 
55  340 

4fl   350 

SB  360 
iE  370 
78  300 
Fl  390 
43  400 
FB  410 
E3  420 

E6  430 
FF  440 
S4  450 
*7  460 

E£  470 
fA  471 
DB  473 

FE  474 
6D  476 


TEXT  :  HOME 

READ  NB,WB 

WS  =  <280  - 

B  +  1) 

X  =  WS  +  1 

IF  NB  «  (WB 

HEN  170 

PRINT  CHR*  (7>; "CHART  IS 

TOD  WIDE";  PRINT  "PLEASE 

PRESS  A  KEY  ":  GET  AN*:  B 

OTD  490 

DIM  BAR (2  t  NB) ,C(50) 

FOR  I  =  1  TO  2  »  NB 

READ  BAR  CD 

IF  MAX  <  BARCn  THEN  MAX 

-  BAR(I) 
NEXT  I 

SCL  =  130  /  MAX 

HGR  :  RDT=  0:  SCALE=  1:  H 

COLOR=  3 

HPLOT  0,0  TO  0,159  TO  279 

, 159  TO  279,0  TO  0,0 

FOR  I  =  1  TO  NB 

HPLOT  X,159  TO  X, 159  -  SC 

L  »  BAR<I)  TO  X  +  WB,159 

-  SCL  *  BAR(I)  TO  X  +  WB, 
159 

X  =  X  +  WB  +  WS 

NEXT  I 

X  =  WS  +  WB  +  13: BW  =  WB 

-  5 

FOR  I  =  NB  +  1  TO  2  *  NB 
HPLOT  X,159  TO  X,  159  *-  SC 
L  t    BAR (I)  TO  X  +  BW, 159 

-  SCL  t    BARCIJ  TO  X  +  BW, 
159 

X  =  X  +  WB  +  WS 

NEXT  I 

POKE  232,0:  POKE  233,112 

PRINT  CHR*  (4); "BLOAD  BAR 

TABLE, A*7000" 

FOR  I  =  1  TO  NB 

K  =  0 

FDR  J  =  1  TO  10 

READ  CCJ):  IF  C(J)  =  0  TH 

EN  380 

DRAW  C(J>  AT  I  «  (WS  +  WB 

)  +  5, 156  -  K  $  9 

K  =  K  4-  1 

NEXT  J 

IF  I  =  NB  THEN  400 

NEXT  I 

FOR  I  =  1  TO  25 

READ  C(I) 

DRAW  C(I>  AT  18  +  (I  *  9) 

,13 

NEXT  I 

FOR  I  =  1  TO  4 

READ  C(I) 

DRAW  C<I)  AT  1B5  +  (I  *  5 

)  ,22 

NEXT  I 

FDR  I  =  1  TO  4 

READ  C ( I ) :  DRAW  C ( I )  AT  5 

7  +  I  »  5,22 

NEXT  I 

DRAW  32  AT  85,24:  DRAW  31 


24 

AT  10, 150 
PRINT  "PRESS  ANY 
GET  AN$:  TEXT  : 


AT  213, 
FI  480  DRAW  30 
BE  490  VTAB  24  r 
KEY  ";: 

HOME 
BD  500  END 
flC  510  DATA  4, 1 

110, 148, 
F5  520  DATA  1,2 

1,6, 1,5, 
72  530  DATA  10, 

,11,24,1 

18, 10, 19 

9,23 
23  540  DATA   25 

9,25 


Program  8:  BARTABLE 

Please  refer  to  the  "MLX"  article  elsewhere  '\n 
this  issue  before  entering  the  following 
program, 


7800: 

20 

00 

42 

00 

4E 

00 

5B 

00 

72 

780Ba 

66 

00 

72 

00 

7A 

00 

84 

00 

57 

7810: 

90 

00 

9C 

00 

A7 

00 

B8 

00 

SB 

7818: 

C8 

00 

D3 

00 

E4 

00 

EF 

00 

EE 

7820; 

FA 

00 

09 

01 

19 

01 

26 

01 

09 

78281 

36 

01 

45 

01 

53 

01 

61 

01 

8F 

78301 

73 

01 

75 

01 

7C 

01 

83 

01 

C9 

7838: 

8B 

01 

92 

01 

9C 

01 

D3 

01 

27 

7B40I 

E4 

01 

24 

24 

0C 

0C 

15 

15 

7A 

7848: 

36 

36 

C4 

3F 

04 

00 

A8 

2D 

00 

7830: 

05 

20 

IC 

3F 

07 

20 

0C 

2D 

41 

785BI 

15 

04 

00 

20 

24 

24 

4D 

31 

34 

78601 

36 

36 

IE 

3F 

04 

00 

24 

24 

3E 

78&Bt 

24 

2D 

AD 

F6 

3F 

0E 

0E 

0E 

38 

78701 

04 

00 

AS 

2D 

20 

24 

3C 

28 

7D 

7878: 

25 

00 

24 

24 

24 

2D 

AD 

36 

2A 

7880 1 

IE 

3F 

04 

00 

24 

24 

24 

0E 

08 

7888: 

0E 

0E 

96 

21 

24 

24 

24 

00 

E2 

7890: 

24 

24 

24 

2D 

2D 

96 

3B 

B7 

E5 

7898: 

2A 

2D 

04 

00 

20 

24 

64 

2D 

Fl 

78  A0! 

15 

36 

36 

IE 

3F 

04 

00 

24 

80 

78Aei 

24 

24 

24 

2D 

2D 

AD 

36 

IE 

B6 

78B0I 

3F 

3F 

8D 

0E 

0E 

0E 

04 

00 

54 

78B81 

2D 

2D 

2D 

DC 

DB 

23 

24 

2D 

OF 

78C0S 

E5 

IB 

24 

2C 

2D 

2D 

25 

00 

IB 

79C8: 

2D 

2D 

2D 

DC 

DB 

23 

24 

24 

E6 

78D0S 

24 

04 

00 

24 

24 

24 

0C 

0C 

EC 

78D81 

2D 

13 

15 

36 

3F 

3F 

6F 

4A 

CB 

78E01 

31 

36 

04 

00 

49 

24 

24 

24 

BF 

78E8: 

24 

3F 

6F 

09 

2D 

04 

00 

29 

DC 

7SF0S 

2D 

E3 

23 

24 

24 

24 

3F 

4D 

16 

7BF8I 

23 

00 

49 

IC 

IC 

IC 

24 

24 

23 

7900  i 

6C 

49 

31 

36 

36 

IE 

IE 

04 

6F 

7908* 

00 

70 

2D 

2D 

05 

20 

E4 

3F 

41 

7910s 

3F 

07 

20 

64 

2D 

2D 

13 

04 

FA 

79181 

00 

24 

24 

24 

24 

2D 

2D 

AD 

B8 

7920: 

36 

IE 

3F 

3F 

04 

00 

09 

2D 

F0 

7928s 

03 

28 

20 

24 

E4 

IC 

3F 

17 

IB 

7930: 

17 

36 

36 

0E 

04 

00 

2D 

2D 

SB 

7938: 

2D 

20 

24 

24 

E4 

3F 

3F 

AF 

E2 

7940: 

36 

36 

36 
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Font  Printer 

For  The  IBM  PC/PCjr 


"Font  Printer  for  the  IBM  PC/PCjr 
allows  you  to  print  a  wide  variety  of 
custom  character  styles  on  a  dot- 
matrix  printer,  U$  editor  makes  it  easy 
to  design  custom  text  fonts,  and  the 
printing  program  lets  you  print  any 
ASCII  (plain  text)  file  using  your  cus- 
tom print  style.  Another  program  al- 
lows you  to  print  large  banners  using 
any  custom  printer  font.  As  a  special 
bonus,  the  quarterly  IBM  PC /PCjr 
disk  that  includes  this  month's  COM- 
PUTE!  programs  also  contains  a  library 
of  25  ready-to-use  custom  printer  fonts 
for  this  program.  The  editor  program 
requires  a  color  monitor,  and,  for  the 
IBM  PC  and  compatibles,  a  color /gra- 
phics card  or  equivalent  hardzuare  is 
also  required.  The  printing  program 
requires  an  IBM  Graphics  Printer  or 
compatible  dot-matrix  printer.  All  the 
programs  require  BASICA  for  the  PC, 
Cartridge  BASIC  for  the  PCjr,  or  GW- 
BASIC  for  compatibles,  and  DOS  ver- 
sion 2.1  or  higher. 


"Font  Printer"  makes  it  possible  to 
create,  edit,  and  print  custom  fonts 
on  a  dot-matrix  printer.  You  can 
print  text  in  almost  any  imaginable 
print  style,  from  Gothic  and  Roman 
to  Old  English,  outlined  characters, 
or  whatever  else  you  can  devise. 
You  have  full  control  over  the 
shape  of  each  character,  so  Font 
Printer  isn't  limited  to  printing  ordi- 
nary characters  of  the  alphabet.  It 
also  can  print  custom  letterheads, 
other  graphic  designs,  and  banners. 
This  article  includes  four  pro- 
grams. The  font  editor  (Program  1) 
lets  you  design  and  edit  complete 
custom  fonts  and  save  them  to  disk. 
The  printing  program  (Program  2) 


John  Klein 


Figure  1:  Custom  Fonts 
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Th is  is  a  t ff 8 1 
ASCDEFGH I JKLMNOPQRSTUVWXYZ 


DOUBLE 

This  is  a  test 
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1234567890 

TR I  RLE 
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abode  f  gh  i  j  k  1  mriopQi^s  t  u  v wxy 2: 

1 23456V890 

.1^34^567890 

OLDWEST 

This   is  a  tost 

ABCDEFGH I JKLMN0PQBSTUYWXY2 

abcde  i  ^  i  j  k  1  mnopcirs  t  uvw3sy2 

12345E7830 

PUmPTRllLliE 


nbcdJaCFglh  i  jll^  i  (HiniopEiir: 


Chis    is  a   fesf 

abcdef  gh  i  jk  I  mnopqrs  f  uDtuxys 

"Font  Printer"  allows  you  to  create  many  different  custom  fonts  and  print  any  font  in  a 
variety  of  sizes. 


lets  you  print  any  ASCII  text  file 
using  the  custom  font  of  your 
choice.  Program  3  helps  you  keep 
track  of  the  custom  fonts  you  have 
created,  and  the  banner  printer  pro- 


gram (Program  4)  prints  large-letter 
banners  using  custom  fonts.  The 
accompanying  figures  illustrate  just 
a  part  of  what  you  can  do  with  Font 
Printer. 
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Figure  2:  Letterhead 


.Jfe-^^ 


Dear  Proapecljve  Travel er, 

With  prices  rising  in  what  seems  every  market,  the 
coat  of  travel  ifi  lower  than  tt  hag  ever  been.   In  fact 
9006  companies  cut  their  prices  in  half  all  the  way  acroaa 
the  board.  Take  that  Icmg  needed  vacation  today!  Dcjn't 
put  it  off  any  longer. 

Come  down  and  aee  our  special  vacation  packages.   Simply 
choose  your  vacation  spot  and  budget  and  we'll  set  you  up  w»th 
the  be^t  possible  package.   He'll  get  you  your  airplane,  bus, 
or  cru)se  tickets  and  reserve  a  nice  place  to  stay,  once  at  your 
destination. 

See  us  soon.   There  ts  no  better  tioe  than  the  present  I 

S  i  TKiere  1  y , 

Herbert  Fi  J  ling 
Genera  I  Manager 


Miff^^\yA^ii,  A^WUt.  uiA 


'Tout  Printer"  can  also  create  eye-catching  graphic  designs,  such  as  this  letterhead  for  a 
fictitious  travel  agency.  The  graphics  shapes  are  created  by  redefining  a  block  of  text 
characters. 


(Ed,  Note:  As  a  bonus  for  disk  sub- 
scribers, the  COMPUTE!  Disk  that  in- 
cludes the  programs  for  this  month 
also  contains  25  ready-made  custom 
printer  fonts.  (Because  space  is  limit- 
ed, ive  cannot  publish  the  bonus  fonts 
in  the  magazine.) 

These  programs  were  tested  on 
an  IBM  Graphics  Printer^  a  Star  Mi- 
cronics  SD-10  (in  IBM  mode),  and 
on  an  Okidata  printer  with  the  IBM 
Plug  'n  Play  Kit.  To  use  Font  Printer 
on  another  type  of  printer,  check 
the  printer  manual  to  see  if  it  can 
print  APA  (AH  Points  Addressable) 
graphics,  also  known  as  bit-image 
graphics.  The  printer  must  also  use 
the  command  sequence  CHR$(27) 
CHR$(76)— ESC  L— in  order  to  get 
960  dots  in  the  same  space  normal- 
ly  occupied  by  80  text  characters — 
usually  referred  to  as  double- 
density  graphics  mode. 


Using  The  Font  Editor 

Type  in  Programs   1-4  and  save 

them  on  disk;  then  load  and  run 
Program  1,  the  font  editor.  The  pro- 
gram begins  by  asking  you  to  enter 
a  filename  for  the  font  you  wish  to 
edit.  Each  custom  font  is  saved  in  a 
separate  disk  file.  The  filename 
must  be  no  longer  than  eight  char- 
acters, not  including  the  extension. 
You  should  add  a  special  extension 
such  as  .FNT  with  font  filenames  as 
a  reminder  that  they  contain  cus- 
tom printer  fonts. 

Each  disk  that  contains  font 
files  must  also  contain  a  font  code 
directory  file  named  FONTCODE- 
.DIR.  If  no  font  code  directory  is 
found  on  the  disk,  the  font  editor 
will  create  a  new  FONTCODE.DIR 
file.  The  font  editor  will  also  make 
the  appropriate  entries  in  the  font 
code  directory  for  each  new  font 
you  create.   Any  disks  containing 


font  files  must  also  have  a  font  code 
directory  file  before  the  fonts  can  be 
used  by  Programs  2-4. 

To  load  an  existing  font,  place 
a  disk  containing  the  appropriate 
font  file  in  the  drive  and  enter  the 
desired  filename.  The  editor  loads 
the  file  from  disk  and  displays  the 
first  character  of  that  font  on  the 
screen.  If  you  enter  the  name  of  a 
file  that  is  not  found  on  the  disk  or 
is  not  currenriy  in  the  font  code 
directory,  Program  1  asks  whether 
you  wish  to  create  a  font  code  direc- 
tory entry  for  the  new  file.  Press  Y 
to  create  a  new  font  file  or  to  add  an 
existing  file  to  the  font  code  directo- 
ry, or  press  N  to  abort  the  function 
and  return  to  the  original  prompt. 

If  a  file  with  the  specified  name 
exists  on  the  disk  but  is  not  in  the 
font  code  directory.  Program  1  al- 
lows you  to  simply  add  the  file  to 
the  directory  and  begin  editing. 
Otherwise,  you  must  create  a  new 
font  file.  In  this  case,  you  have  two 
options:  You  can  start  with  an  emp- 
ty font  (all  character  patterns  will 
be  blank),  or  you  can  start  with  a 
font  that  is  a  copy  of  an  existing 
font.  If  you  choose  the  option  to 
start  with  an  empty  font,  you  must 
answer  a  few  questions  before  you 
begin  to  edit.  First,  the  program 
requests  that  you  specify  the  char- 
acter size  in  terms  of  width  and 
height. 

The  character  width  (in  dots) 
can  be  any  whole  number  from 
4-36.  A  width  value  of  12  creates 
normal-width  characters  which  will 
print  ten  characters  to  the  inch  on  a 
standard  printer.  To  create  half- 
width  characters,  you  would  speci- 
fy a  width  of  6.  Use  a  width  of  24 
for  double-width  characters,  36  for 
triple-width,  and  so  on. 

After  you  specify  the  character 
width.  Program  1  asks  you  to  speci- 
fy the  character  height  in  terms  of 
lines.  A  character  may  be  one,  two, 
or  three  lines  high,  Each  line  con- 
tains eight  vertical  dots,  and  the 
normal  printer  font  is  one  line  in 
height.  A  character  with  a  height  of 
two  lines  is  16  dots  high,  and  one 
with  three  lines  is  24  dots  high — a 
very  large  character,  indeed. 

The  next  prompt  asks  you  to 
enter  the  font  call  code  for  this  font. 
This  is  the  code  name  you  will  use 
to  call  (begin  using)  the  font  within 
a  word  processing  document.  The 
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font  call  code  can  l?e  a  descriptive 
word  of  any  length,  but  it  must 
contain  no  spaces,  colons,  or  hy- 
phens. To  use  a  font,  you  need  to 
remember  its  call  code,  not  its  file- 
name. The  font  code  directory 
matches  call  codes  with  filenames. 
Finally,  the  font  editor  pro- 
gram prompts  you  to  press  C  if  you 
wish  to  create  a  character  font  or  H 
if  you  wish  to  create  a  header.  A 
header  is  simply  a  picture  or  graph- 
ic design  that  is  built  of  several 
individual  custom  chaiacters.  The 
process  of  creating  headers  is  de- 
scribed later  in  this  article. 

Editing  Screen 

After  you  answer  those  questions 
(or  if  you  began  the  program  by 
loading  an  existing  font),  the  font 
editor  displays  the  main  editing 
screen.  This  screen  is  divided  into 
two  areas.  On  the  left  is  a  list  of 
single-key  options  used  in  editing. 
On  the  right  is  the  editing  window, 
which  displays  an  enlarged  version 
of  the  current  character. 

A  custom  character  set  is  creat- 
ed by  drawing  one  character  at  a 
time  in  the  editing  window.  Use  the 
cursor  keys  to  move  around  inside 
the  editing  window.  If  you  press  the 
space  bar  when  the  cursor  is  on  a 
blank  space,  that  space  is  turned  on. 
To  turn  off  a  space  that  is  already 
turned  on,  simply  move  the  cursor 
to  that  square  and  press  the  space 
bar  again. 

Font  Printer  allows  you  to  de- 
fine patterns  for  ASCII  characters 
33-126,  These  are  all  the  characters 
that  can  be  entered  from  the  IBM 
PC/PCjr  keyboard  without  using 
the  Alt-key  entry  mode. 

If  you  are  creating  a  compara- 
tively small  font,  you  can  draw 
each  character  by  moving  around 
the  editing  window  and  turning  on 
the  dots  to  represent  that  character. 
For  larger  characters  or  graphics, 
you  may  find  it  faster  to  draw  each 
character  on  graph  paper  before 
transferring  the  design  to  the  com- 
puter. Another  method  is  to  tape  a 
sheet  of  clear  plastic  over  the  moni- 
tor screen  and  draw  on  the  plastic 
with  washable  marking  pens,  then 
use  the  editor  to  fill  in  the  squares 
to  make  up  the  design.  When 
you're  done  creating  one  character, 
simply  wipe  off  the  plastic  and  pro- 
ceed to  the  next. 


Figure  3:  Centering  Guidelines 
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Piacement 

The  placement  of  each  character 
within  the  editing  window  is  critical. 
If  you  don't  align  each  character  in 
the  set  properly,  the  font  may  look 
messy  or  be  difficult  to  read.  For 
most  fonts,  youll  want  to  leave 
white  space  around  characters  to 
prevent  them  from  running  into  one 
another  and  becoming  illegible.  Fig- 
ure 3  illustrates  some  centering 
guidelines  which  will  create  a  pleas- 
ing appearance  in  most  cases.  Note 
that  all  characters  except  uppercase  I 
should  be  placed  flush  against  the 
left  side  of  the  editing  window. 

The  exact  amount  of  blank 
space  bordering  each  character  de- 
pends on  the  effect  you  wish  to 
achieve.  In  general,  you  should 
leave  one  or  two  blank  lines  below 
the  characters  to  leave  room  for 
descenders  on  the  lowercase  char- 
acters g, ;,  p,  q,  and  y.  Similarly,  the 
top  line  or  two  of  space  should  be 
reserved  for  uppercase  characters 
and  for  the  ascenders  in  the  lower- 
case characters  b,  d,  h,  k,  /,  and  t. 
Every  character  should  have  at  least 
one  row  of  white  space  to  the  right. 

Editing  Options 

The  left  side  of  the  editing  screen 
displays  the  font  editor's  single-key 
commands: 

M 
C 

T 
S 
1 
A 

W  rewrite  screen 

R  restart  program 

Q  quit 

SPACE     plot/erase  point 

or  cancel  current  command 
D  turn  draw  mode  on/off 

E  turn  erase  mode  on/off 

The  move  command  (M)  lets 
you  change  which  character  you 
are  editing. 

The  clear  window  command 
(C)  clears  the  editing  window,  eras- 
ing the  current  character  pattern. 


move  to  new  character 
clear  editing  window 
trace  from  character 
save  character  to  disk 
reinitialize  font  parameters 
clear  all  characters 


The  trace  command  (T)  allows 
you  to  copy  the  pattern  of  another 
character  in  the  font  into  the  editing 
window.  This  is  useful  for  creating 
characters  that  look  similar.  For  in- 
stance, to  create  a  lowercase  e  char- 
acter, you  might  begin  by  tracing  in 
the  pattern  of  lowercase  c  (assum- 
ing you  have  already  created  the  c). 
When  asked  to  choose  which  char- 
acter to  trace,  you  may  either  enter 
the  character's  ASCII  value  or  sim- 
ply type  the  desired  character.  Note 
that  this  command  clears  the  cur- 
rent character  before  tracing  the 
pattern  of  the  new  one. 

The  save  command  (S)  saves 
the  current  character  pattern  (the 
contents  of  the  editing  window)  to 
the  font  file.  To  add  the  pattern  to 
the  font  file,  you  must  save  it  before 
moving  to  another  character  or  exit- 
ing from  the  editor.  After  you  save  a 
pattern,  you  will  automatically  be 
moved  to  the  next  character  in  the 
set.  Note  that  all  the  data  for  the 
pattern  may  not  be  written  immedi- 
ately to  disk  when  you  use  the  S 
command.  The  computer  collects 
the  data  in  a  buffer  and  writes  to 
disk  only  when  the  buffer  is  full 
For  this  reason,  it's  important  to 
always  exit  the  program  with  the  Q 
(quit)  command.  If  you  use  Ctrl- 
Break  to  break  out,  the  last  editing 
changes  you  made  may  not  be  writ- 
ten to  disk. 

The  initialize  command  (I)  re- 
sets the  size  of  the  font  and  allows 
you  to  change  its  call  code.  If  you 
change  the  font  size,  you'll  proba- 
bly need  to  use  the  clear  all  (A) 
command  to  erase  any  previous 
character  definitions.  Character 
patterns  designed  for  one  font  size 
will  appear  garbled  when  displayed 
in  another  size. 

The  clear  all  command  (A) 
clears  all  the  characters  in  the  cur- 
rent font.  Use  this  command  with 
care;  it's  not  possible  to  recover  the 
character  patterns  once  they  have 
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been  erased. 

The  rewrite  command  (W) 
erases  and  redisplays  the  entire 
editing  screen.  The  editing  window 
is  redrawn  with  the  character  pat- 
tern from  the  font  file. 

The  restart  command  (R)  re- 
starts the  program.  The  current 
chararacter  set  patterns  will  be 
cleared,  and  you'll  be  given  the  op- 
portunity to  choose  another  font 
file  for  editing. 

Press  the  Q  key  to  exit  the  pro- 
gram and  return  to  BASIC.  All 
saved  character  patterns  will  be 
written  to  disk  before  the  program 
exits. 

The  clear  all  restart,  and  quit 
commands  all  ask  Are  you  sure? 
before  proceeding.  Respond  with  Y 
to  execute  the  command  or  N  to 
cancel  the  command.  You  can  also 
cancel  the  clear,  trace,  and  save 
commands  by  pressing  the  space 
bar  while  the  command  is  acting. 

The  draw-mode  command  (D) 
allows  you  to  turn  automatic  draw 
mode  off  and  on.  When  draw  mode 
is  on,  the  cursor  automatically  turns 
on  every  square  which  it  moves 
over.  This  is  useful  for  filling  large 
areas  of  the  editing  window.  When 
draw  mode  is  off,  the  cursor  moves 
without  disturbing  anything  in  the 
edit  window. 

The  erase-mode  command  (E) 
allows  you  to  turn  automatic  erase 
mode  off  and  on.  When  erase  mode 
is  on,  the  cursor  automatically 
erases  every  square  which  it  moves 
over. 

Both  draw  mode  and  erase 
mode  are  canceled  when  you  draw 
with  the  space  bar. 

Creating  Headers 

A  header  is  simply  a  picture  made 
of  many  custom  characters.  Per- 
haps the  most  common  use  of  a 
header  is  to  create  a  letterhead 
w^hich  goes  at  the  top  of  a  page  of 
stationery.  (See  Figure  2.)  How- 
ever, you  can  use  this  feature  to  put 
graphics  anywhere  on  a  page. 

The  first  step  in  creating  a 
header  is  to  decide  on  its  size.  You 
must  subdivide  the  header  into 
blocks  of  character  size.  For  ex- 
ample, to  create  a  header  that  is  240 
dots  wide  by  six  lines  high,  you 
could  use  character  blocks  24  dots 
wide  by  three  lines  high,  in  which 
case  20  characters  would  be  re- 


quired for  the  header — two  rows  of 
10  characters  each.  Other  character 
sizes  could  be  used,  such  as  12  dots 
wide  by  two  lines  high,  in  which 
case  the  header  must  be  subdivided 
into  more  blocks.  The  only  restric- 
tion is  that  the  complete  header 
pattern  can  use  no  more  that  94 
blocks  (only  characters  33-126  can 
be  defined).  If  you  use  the  largest 
character  size  (36  dots  wide  by 
three  lines  high)  and  divide  the 
header  into  26  characters  across  by 
3  characters  high,  you  can  create  a 
header  line  that  is  three  times  as 
high  as  the  largest  font  style  and  the 
width  of  80  normal  characters,  a 
space  about  8  X  V^  inches  in  size. 

If  you  create  a  header  of  the 
maximum  size,  the  three  lines  of 
character  blocks  can  be  divided  in 
many  different  ways.  For  instance, 
you  might  use  the  upper  two  lines 
to  create  a  custom  letterhead  for  the 
top  of  a  page,  and  use  the  remain- 
ing line  to  create  a  design  for  the 
bottom  of  the  page. 

Header  characters  can  be  creat- 
ed by  drawing  as  you  go  on  the 
editing  screen.  However,  you  may 
find  it  somewhat  difficult  to  visual- 
ize the  overall  design,  since  only 
one  character  is  visible  in  the  edit- 
ing window.  Perhaps  the  simplest 
method  is  to  tape  together  several 
sheets  of  graph  paper  and  design 
the  header  completely  before  you 
begin  editing  with  the  font  editor. 
Then  decide  what  portion  of  the 
design  should  go  in  each  character 
block,  and  begin  filling  in  the  char- 
acters. You'll  have  an  easier  time 
remembering  which  character 
blocks  comprise  the  header  pattern 
if  you  use  a  sequential  series  of 
characters  for  the  patern.  For  ex- 
ample, if  you  subdivide  your  head- 
er design  into  two  rows  of  ten 
characters,  you  might  use  charac- 
ters 65-74  (corresponding  to  A-}) 
for  the  top  row  and  characters 
75-84  (corresponding  to  K-T)  for 
the  bottom  row.  Be  sure  you  re- 
member which  characters  you  used 
for  your  design.  You'll  need  this 
information  to  print  the  header 
later. 

Forbidden  Character 
Values 

When  you  save  a  character,  its  pat- 
tern is  converted  into  a  series  of 
numbers  in  the  range  0-255.  Two 


of  the  256  possible  values  create 
problems  when  you  attempt  to 
write  them  to  disk  as  part  of  a  file. 
The  tab  character  (ASCII  9)  is  writ- 
ten as  five  space  characters  rather 
than  as  one  tab  character.  Character 
26  signifies  the  end  of  a  file  and 
prevents  all  subsequent  values 
from  becoming  part  of  the  file.  If 
you  try  to  save  a  pattern  containing 
either  of  these  values,  the  program 
shows  you  which  dots  in  the  pat- 
tern create  the  problem  number 
(they  will  be  changed  to  red),  and  it 
gives  you  a  chance  to  correct  them. 
Simply  change  one  of  the  offending 
dots  in  the  verhcal  column  contain- 
ing a  problem  pattern  and  try  to  save 
the  character  again.  Fortunately, 
these  values  appear  infrequently. 

Using  Custom  Fonts 

Once  you  have  created  a  custom 
font  or  header,  you  can  use  the  font 
or  header  in  a  word  processor  docu- 
ment. The  first  step,  of  course,  is  to 
create  the  document  and  decide 
which  fonts  you  wish  to  use.  You 
can  use  almost  any  word  processor, 
as  long  as  it  has  an  option  to  store 
documents  as  ASCII  text  files.  (Pro- 
gram 2,  the  printing  program,  can 
use  only  ASCII  text  files.)  You  can 
use  any  of  the  fonts  created  with 
the  font  editor  as  well  as  the  stan- 
dard character  styles  available  in 
your  word  processor  or  printer.  A 
few  special  rules  must  be  followed 
when  preparing  a  document  to  use 
the  custom  fonts  and  headers. 

Using  a  font  that's  wider  than 
the  usual  12-dot  w^dth  may  require 
some  extra  planning.  Because  the 
characters  take  up  more  space  hori- 
zontally, you  may  have  problems 
centering  them  or  determining  how 
many  will  fit  on  a  line.  For  instance, 
if  you  are  using  double-width  (24- 
dot)  characters,  you  should  reduce 
the  margins  on  your  word  proces- 
sor by  half,  or  insert  an  extra  space 
between  each  character  in  a  line  so 
that  the  word  processor  will  not 
attempt  to  store  too  many  charac- 
ters per  line.  If  a  line  of  text  trans- 
lates into  font  characters  requiring 
more  than  the  maximum  number  of 
dots  the  printer  can  place  on  a  line 
(960  dots  for  the  IBM  Graphics 
Printer),  characters  to  the  right  of 
the  limit  will  be  lost.  Similarly,  you 
may  encounter  problems  when  try- 
ing to  set  the  page  length  for  fonts 


82     COMPUTEI      May  1967 


Increase  your 


knowledge  about  all  aspects  of  compu 


An  absolutely  no-risk  guarantee. 


Select  5  Books  for  only  $3 


95 


More  proerams,  projects,  and  ways  to  use  your  micro. 

Keep  welMnformed  about  the  latest  books  available-and  get  the  ongtna 

^bm^s' lions  at  discounts  of  up  to  SO^/o  off  the  pubH^pr^! 


BASIC 


A  COMPUTE 
KWIWAL 


t970    $22.95 


ADVArtCeD 
APPllCATlOhS  ;^ 


1988    $23.35 


COWMODORE 
':      BASIC 


bPERSONAL 

Computer, 

4iAN0BOOii 


DESIGjO!!? 
PORTABU 
COMflffiRIZEe 

ytsieiaeiis 


laSlP     S10.25 


BASIC 


MtiltiMate 

User's 

Gttlde 


2623    S21.95 


1724P    SI  3.50 


2766P    S12.95 


127S    S1S.9S  2694     522.95 


fPublisher's  Pffces  Shown) 

Membership  Benefits  •  Big  Savings,  in  addition  to  this  introductory 
offer,  you  keep  saving  substantially  with  members'  prices  of  up  to  50%  off  the 
publishers'  prices.  •  Bonus  Books.  Starting  Immediately,  you  will  be  eligible  for 
our  Bonus  Book  Plan,  with  savings  of  up  to  80%  off  publishers'  prices.  •  Club 
News  Bulletins.  13  times  per  year  you  will  receive  the  Book  Club  News,  describ- 
ing all  the  current  selections— mains,  alternates,  extras— plus  bonus  offers  and 
special  sales,  with  hundreds  of  titles  to  choose  from.  •  Automatic  Order.  It  you 
want  the  Main  Selection,  do  nothing  and  it  will  be  sent  to  you  automatically.  II 
you  prefer  another  selection,  or  no  book  at  all,  simply  indicate  your  choice  on  the 
reply  form  provided.  •  Ironclad  hfo-Rlsk  Guarantee.  If  not  satisfied  with  your 
books,  return  them  wtthrn  10  days  without  obligation!  •  Exceptional  Quality,  All 
books  are  quality  publishers'  editions  especially  selected  by  our  Editorial  Board. 


©  1&87  The  CQMPUTEFI  BOOK  CLUB*  ,  BJue  Ridge  Summit.  PA  17214 

All  books  are  hardcover  editions  unless  numbers  are  fotlcwsd  by  a  P  for  paperback. 


—  P.O.  Box  80,  Blue  Ridge  Summit,  PA  17214 


Please  accept  my  membership  in  The  Computer  Book  Club®  and  send  the  5 
volumes  circled  below,  billing  me  $3.95  plus  shipping  and  handling  charges.  If 
not  satisfied,  I  may  return  the  books  within  ten  days  without  obligation  and  have 
my  membership  canceled.  I  agree  to  purchase  at  least  3  books  at  regular  Club 
prices  (plus  shipping/handling)  during  the  next  12  months,  and  may  resign  any 
time  thereafter. 

1035P  1251P  1275  1535  1724P  1737  1768  t807  1816  1876P  1884P 
1970  1988  1990  1993  1997  2622  2623  2650  2691  2694  2710  2730 
2732   2738   2749   2756   2761   2766P   2771   2631   2650   2855   2856 

Name 

Address „^^ 

City ^ 

State/Zip  __.___^ 


Phone 


Valid  for  new  members  only.  Foreign  appficants  will  receive  special  ordering  instructions.  Canada 
must  remit  in  U-S.  currency.  This  order  subject  to  acceptance  by  The  Computer  Book  Club'^  . 

CMPT-587 


that  are  taller  than  usual — each  line 
printed  in  the  tall  font  will  occupy 
more  than  one  line  printed  in  stan- 
dard height.  You  can  compensate 
by  inserting  a  blank  line  between 
each  line  of  double-height  text,  or 
two  blank  lines  between  each  line 
of  triple-height  text. 

Comma  Command 

To  change  the  font  style  within  a 
word  processing  document,  you 
must  include  a  comma  command  at 
the  point  of  change.  A  comma  com- 
mand is  simply  a  comma  (,)  fol- 
lowed immediately  by  a  the  call 
code  of  the  font  which  you  wish  to 
use.  (Remember,  use  the  call  code 
for  the  font,  ?iot  the  filename  under 
which  the  font  is  stored.)  When  the 
document  is  printed,  the  comma 
command  tells  the  printing  pro- 
gram (Program  2)  which  font  to  use 
at  that  point  in  the  printout. 

All  of  the  fonts  created  by  the 
font  editor  program  are  line  fonts, 
meaning  that  you  must  print  an 
entire  line  of  text  in  the  selected 
font,  not  just  part  of  the  line.  The 
comma  to  begin  the  command  must 
be  the  first  nonspace  character  in 
the  line,  except  that  leading  form 
feed  characters,  CHR$(12),  are  al- 
lowed. Only  one  comma  command 
is  allowed  per  line  of  text. 

The  comma  must  be  followed 
immediately  (without  spaces)  by 
the  call  code  of  the  desired  font, 
which  must  be  entirely  in  upper- 
case characters.  A  comma  com- 
mand can  also  take  several  optional 
parameters.  Here  is  a  list  of  the 
comma  command  options: 

space  following  lines  horizontally 

space  following  lines  horizontally  and 

vertically 

double  strike 

change  printer  graphics  mode 

horizontal  expansion 

vertical  expansion 

You  need  not  include  any  op- 
tions in  the  comma  command.  For 
example,  if  you  simply  wish  to 
change  to  the  custom  font  named 
MYFONT,  you  would  insert  this 
comma  command  at  the  beginning 
of  the  line  where  you  want  the 
change  to  take  effect: 

,MYFONT:Your  text  goes  here. 

Notice  that  the  call  code  (MY- 
FONT)  contains   no   spaces.    The 

comma  command  must  be  separat- 
ed from  the  text  to  be  printed  by  a 


s 
ss 

D 
G 
H 

V 


colon  (:).  In  this  case,  your  text  con- 
sists of  the  words  Your  text  goes 
here.  If  you  include  options  in  the 
comma  command,  each  option 
must  be  preceded  by  a  hyphen  (-). 
For  instance,  this  comma  command 
changes  the  font  to  MYFONT  and 
causes  the  printer  to  double-strike 
each  character  one  dot  below  the 
first  character. 

,MYFONT-Dl:Your  text  goes  here. 

The  S  and  SS  options  tell  the 
printer  program  how  to  handle 
large  fonts.  The  S  option  assumes 
that  you  have  provided  extra  spaces 
between  each  character  to  be  print- 
ed; this  option  is  appropriate  when 
you  are  printing  characters  that  are 
normal  height,  but  wider  than  nor- 
mal. The  SS  option  makes  the  same 
assumption  about  horizontal  spac- 
ing and  further  assumes  that  you 
have  inserted  an  extra  line  between 
each  line  of  text  to  be  printed;  this 
option  is  appropriate  when  you  are 
using  characters  that  are  both  wider 
and  higher  than  usual. 

The  D  option  invokes  double- 
strike  mode,  in  which  the  printer 
prints  each  character,  then  backs  up 
and  prints  it  again  before  proceed- 
ing to  the  next  character.  You  may 
follow  the  D  with  a  number  from  1 
to  3  to  control  how  many  dots  be- 
low the  first  character  the  second 
character  is  printed.  Double-strike 
values  of  1  or  2  make  characters 
appear  darker  than  normal.  Larger 
values  create  a  mirrored  or  dou- 
bling effect. 

The  G  option  changes  the 
printer's  graphics  mode.  This  per- 
mits you  to  squeeze  or  expand  exist- 
ing fonts  even  further  by  invoking 
built-in  printer  modes.  The  G 
should  be  followed  by  the  two-digit 
numeric  code  of  the  option  you 
want  to  invoke.  For  an  IBM  Graph- 
ics Printer  and  compatibles,  the 
codes  75,  76,  and  90  invoke  normal 
graphics,  double-w^ide  graphics,  and 
compressed  graphics,  respectively. 
Thus,  the  comma  command  ,MY- 
FONT-G90  causes  the  printer  to  use 
the  characters  in  MYFONT,  using 
compressed  graphics  mode. 

The  H  and  V  options  affect  the 
optional  automatic  spacing  invoked 
by  the  S  or  SS  options  (see  above). 
The  H  option  is  followed  by  a  num- 
ber in  the  range  1-9  to  indicate  how 
many  times  the  font  should  be  ex- 


panded horizontally.  The  V  option 
is  followed  by  a  number  from  1  to  4 
to  indicate  how  many  times  to  ex- 
pand the  font  vertically.  For  ex- 
ample, the  comma  command 
,MYFONT-H3"V2-SS  tells  the 
printer  program  to  print  each  sub- 
sequent character  three  times  its 
normal  width  and  two  times  its 
usual  height. 

Expanding  characters  with  the 
H  and  V  options  can  be  a  slow 
process.  To  indicate  that  something 
is  happening,  the  program  flashes 
an  exclamation  point  (!)  on  the 
screen. 

Back  To  Normal 

To  cancel  a  custom  font  and  resume 
printing  with  the  printer's  standard 
character  set,  insert  this  comma 
command: 

^REGULAR 

Note  that  this  command  can- 
not use  any  of  the  options  of  the 
other  commands.  There  are  two 
ways  of  changing  the  print  style 
while  using  the  standard  character 
set.  The  first  is  to  use  the  usual 
formatting  commands  for  your 
word  processor.  You  must  use  some 
care,  however,  when  mixing  these 
commands  with  Font  Printer  com- 
ma commands.  To  use  this  method, 
insert  all  of  the  comma  commands 
needed  to  do  what  you  w^ant,  then 
print  the  document  to  disk  using  your 
word  processor's  printer  option  or 
print  program.  It  is  important  to 
include  this  step  so  that  the  output 
is  reformatted  according  to  your 
embedded  formatting  commands 
and  so  that  the  final  file  is  in  ASCIL 

Standard  Fonts 

The  second  way  to  change  printer 
styles  is  to  define  special  printer 
font  call  codes.  The  definitions 
must  be  entered  as  DATA  state- 
ments at  the  end  of  Program  2. 
Remember,  a  standard  printer  style 
is  one  which  your  printer  can  print 
without  the  aid  of  Font  Printer.  Pro- 
gram 2  must  know  three  things  for 
each  standard  character  style:  the 
style's  call  code,  the  ASCII  code  or 
sequence  of  codes  which  invokes 
the  style,  and  the  code  or  sequence 
which  disables  the  style. 

Definitions  for  some  styles 
available  on  the  IBM  Graphics 
Printer  are  already  in  the  DATA 
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lines  at  the  end  of  Program  2,  but 

you  may  want  to  add  more.  To 
avoid  confusion,  it  is  best  to  put 
each  set  of  standard  font  infor- 
mation on  its  own  DATA  line.  Be- 
gin by  typing  a  descriptive  name  for 
the  style.  This  name  is  the  style's 
call  code;  note  that  the  call  code 
must  be  entirely  in  uppercase,  with 
no  spaces,  colons,  or  hyphens.  The 
call  code  must  be  followed  by  the 
ASCII  value  or  values  which  in- 
voke (enable)  this  font,  each  num- 
ber separated  by  a  comma.  Next 
must  come  the  value  —1,  which 
marks  the  end  of  the  invoking  se- 
quence. In  the  same  manner,  enter 
the  ASCII  values  which  turn  off 
(disable)  the  font,  following  that  se- 
quence with  another  —1.  Here  are 
two  examples  for  standard  com- 
pressed and  double-width  com- 
pressed modes: 

1010  DATA  COMPRESSED,15,-l,18,-l 
1020  DATA  DOUBLECOMPRESSED, 
15,14,-1,20,18,-1 

Notice  that  two  codes  are  used 
to  enable  double-width  com- 
pressed mode:  The  first  value — 
equivalent  to  CHR$(15) — invokes 
compression  and  the  second  (14) 
invokes  double- width  printing. 

If  you  add  new  DATA  lines  to 
Program  1,  note  that  the  last  DATA 
item  must  be  named  ENDD.  Do  not 
delete  the  line  containing  the  REG- 
ULAR call  code;  this  item  is  needed 
to  return  to  normal  print  mode  after 
you  have  invoked  a  custom  font. 

Once  you  have  defined  the 
special  font  codes  for  the  standard 
styles,  you  can  invoke  the  styles  by 
including  comma  commands  just 
like  those  for  the  custom  fonts.  For 
example,  if  you  have  defined  a  call 
named  COMPRESSED,  you  can  in- 
voke that  stvle  with  the  command 
.COMPRESSED:. 

Printing  Headers 

Headers  are  printed  in  much  the 
same  manner  as  any  other  font  cre- 
ated by  Font  Printer.  The  comma 
commands  have  the  same  effect  for 
headers  as  for  any  font.  The  only 
difference  is  in  how  the  different 
parts  of  the  picture  are  written  into 
the  document.  Remember,  a  header 
consists  of  many  different  blocks 
which  have  been  designed  to  make 
up  one  large  picture.  Thus,  your 
word  processing  document  would 
contain  the  constituent  characters 


which,  when  redefined,  make  up 

the  picture. 

To  illustrate,  say  that  you  have 
created  a  graphic  header  named 
MYHEAD  using  all  of  the  charac- 
ters from  ASCII  33-110;  you  have 
used  the  largest  font  style  as  sug- 
gested earlier,  and  the  design  occu- 
pies three  lines,  26  characters  to 
each  line  (characters  33-58  were 
used  for  the  top  line,  59-84  for  the 
middle,  and  85-110  for  the  bot- 
tom). In  the  header  file — and  in  the 
final  printed  product — each  charac- 
ter's pattern  makes  up  part  of  the 
overall  design.  But  here  is  the  way 
the  header  would  appear  in  a  word 
processing  document  before  print- 
ing to  disk: 

,MYHEAD:!"#$'yo&'()*+,-./0123456789: 
;<->?@ABCDEFGHIJKLMNOPQRST 
UVWXYZ[  \f -'abcdefghijklmn 

The  comma  command  ,MY- 
HEAD  tells  the  printer  program  to 
use  the  font  from  the  file  MYHEAD. 
Like  other  comma  commands,  it  is 
separated  from  subsequent  text 
with  a  colon.  After  the  comma  com- 
mand comes  the  series  of  characters 
which,  when  translated  by  the 
printer  program,  creates  the  graphic 
design  of  the  header. 

Printing  A  Document 

When  you  run  Program  2,  it  asks 
you  for  the  name  of  the  file  to  print. 
Enter  the  name  of  the  ASCII  text 
file  that  contains  your  document. 
There  are  two  different  ways  to 
print  the  document.  The  first  is  to 
enter  LPTl:  (or  simply  press  Enter) 
when  the  program  asks  you  for  the 
output  file/device.  This  option 
causes  the  document  to  be  printed 
directly  to  the  printer,  a  method 
which  works  in  most  cases. 

If  the  first  method  does  not 
produce  the  expected  results,  or  if 
you  wish  to  print  more  than  one 
copy  of  the  document,  use  this 
technique:  When  prompted  for  the 
output  file/device,  enter  a  file- 
name. The  program  creates  a  disk 
file  containing  the  data  that  would 
otherwise  have  been  sent  to  the 
printer.  Once  saved  on  disk,  the 
document  can  be  printed  in  one  of 
two  ways.  You  can  use  the  DOS 
PRINT  command  to  put  the  file  in 
the  print  queue,  allowing  you  to 
run  other  programs  while  the  file  is 
printing.  You  can  also  use  TYPE 
and  redirect  the  output  to  the  print- 


er instead  of  the  screen.  Here  are 

examples  of  both  commands  (re- 
member, these  are  DOS  commands 
which  you  enter  from  the  DOS 
prompt): 

PRINT  filename 
TYPE  filename  >LPT1: 

The  expression  >LPT1:  diverts 
the  output  from  TYPE  to  the  print- 
er. TYPE  works  about  twice  as  fast 
as  PRINT,  but  it  doesn't  allow  you 
to  perform  other  tasks  while  print- 
ing like  PRINT  does. 

After  you  enter  the  output  file/ 
device.  Program  2  asks  for  the 
name  of  the  disk  drive  (be  sure  to 
include  the  colon — A:,  B:,  and  so 
on)  which  contains  the  font  files. 
This  allows  you  to  keep  your  font 
files  on  a  separate  disk.  If  you  have 
more  than  one  drive,  put  the  docu- 
ment disk  (the  one  containing  your 
text  file)  in  drive  A:  and  the  the  font 
disk  in  drive  B:;  then  specify  B:  for 
the  drive  containing  font  files.  If 
you  have  only  one  disk  drive,  you 
can  either  put  the  text  file  on  the 
same  disk  as  the  font  files,  or  you 
can  enter  B:  for  the  font-file  drive. 
In  the  latter  case,  youTl  have  to 
repeatedly  sw^ap  the  document  and 
font  disks.  (When  it's  time  to  sw^ap 
disks,  the  computer  will  beep  twice. 
Wait  for  a  message  to  insert  the 
correct  disk.)  In  any  case,  the  font 
disk  must  also  contain  a  font  code 
directory  file  (FONTCODE.DIR). 

If  the  program  can't  find  a  font 
file  called  in  your  document,  it  indi- 
cates the  error  and  gives  you  the 
option  of  inserting  a  disk  contain- 
ing the  specified  font  file  or  ignor- 
ing the  font  change. 

After  you  have  answered  all 
the  necessary  questions,  Program  2 
prints  the  document  to  a  file  or  to 
the  printer,  according  to  your  choice. 

Listing  Calf  Codes 

Program  3  helps  you  keep  font  files 
in  order.  To  get  a  complete  list  of 
the  font  call  codes  for  all  of  the  font 
files  in  the  current  font  code  direc- 
tory for  a  disk,  use  Program  3,  You 
can  direct  the  Hsting  of  font  codes 
and  filenames  to  the  screen,  printer, 
or  a  disk  file.  Program  3  also  has  an 
option  to  create  a  file  containing  a 
sample  of  all  the  fonts  in  the  font 
code  directory.  If  you  choose  this 
option,  the  program  will  create  a 
disk  file  named  ALLFONTS,  which 
you  can  then  print  with  Program  2. 
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Printing  Banners 

Program  4  prints  banners  using 
custom  fonts  which  you  have  creat- 
ed with  the  font  editor.  After  you 
enter  the  words  to  be  printed  on  the 
banner  and  the  font  call  code  for 
the  font  in  which  the  banner  is  to  be 
printed,  the  program  displays  the 
possible  print  sizes  and  asks  you 
how  many  times  to  expand  the  font 
horizontally  and  vertically.  In  most 
cases,  the  best  results  are  obtained 
by  selecting  a  horizontal  expansion 
value  that  is  about  half  the  vertical 
expansion  value.  This  prints  the 
font  with  about  the  same  propor- 
tions as  it  would  normally  have. 

After  you  select  the  banner 
size,  you  are  given  three  different 
ways  to  make  up  each  letter.  In  the 
first  method,  the  banner  letters  are 
made  from  the  words  of  the  mes- 
sage itself.  For  example,  if  the  mes- 
sage is  Happy  Birthday,  each  letter  is 
made  up  of  the  letters  HappyBirth- 
day.  The  second  method  is  to  create 
each  character  out  of  normal -sized 
versions  of  the  character  itself,  (The 
large  H  is  made  of  small  H  charac- 
ters, and  so  on).  The  third  method 
lets  you  choose  the  character  or 
combination  of  characters  to  use  for 
the  banner;  for  instance,  to  make  a 
happy  birthday  banner  for  your 
friend  Bill,  you  might  use  BILL  to 
make  up  each  character. 


For  instructions  on  entering  these  programs, 
please  refer  to  "COMPUTEl's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 


Program  1:  Font  Editor 

Ffl  10  SCREEN  0,1:  WIDTH  80;  KEY  DF 

FiDIM  CHAR(2,37) ,C0DE$(2,5 

0) :C0L=3 
01  20  CLSiLOCATE  1,14:C0L0R  0,5: 

PRINT"  Font  Editor  " : LOCAT 

E  3,1: COLOR  5, 0: INPUT"Name 
of  font  file  to  edit  >",F 

ILE*:B«=FILE*:GOSUB  940: IF 
B*=""  THEN  BEEP: GOTO  20  E 

LSE  FILE*=B* 
LJ  30  A$="":ON  ERROR  GOTO  40:DPE 

N"I",#l,FlLE»tCLOSE  #liON 

ERROR  GOTO  0s  GOTO  50 
HD  40  IF  ERR=53  THEN  A$="NOT  ";R 

ESUME  50  ELSE  980 
IL  50  ON  ERROR  GOTO  60:  OPEN"  I" ,  # 

3 , " FONTCODE . D I R " ; ON  ERROR 

GOTO  0:GOTQ  70 
BD  60  IF  ERR-53  THEN  OPEN  "0",  #3, 

" FONTCODE ■ D I R " : CLOSE  #3 : RE 

SUME  50  ELSE  980 
KE  70  IF  NOT  (EOF  (3))  THEN  FOR  Z= 

0  TO  2: INPUT  #3, CODE*: NEXT 
Z:IF  CODE*<>FILE*  THEN  70 
ELSE  IF  A*=""  THEN  90 
Dfl  80  CLOSE  #3:GQSUB  570: GOTO  10 

0 


BK  90  CLOSE  #3:  OPEN"R"  ,  #1 ,  FILE*, 
4; FIELD  #1,2  AS  B«,2  AS  C* 
:6ET  #l:X=VALtB*>:Y-VAL(C* 
)tas CLOSE  #1 

GL  100  DPEN"R", #1, FILE*, X: FIELD 
#1,X  AS  D*:CHR-1 

PD  110  COLOR  6,0: LOCATE  8,1:PRIN 
T"I1  -  MOVE  to  new  charact 
er":PRINT"C  =  CLEAR  edit! 
ng  window" :PRI NT" T  =  TRAC 
E  (copy)  image  from  chara 
cter"! PRINT "S  =  SAVE  char 
acter  to  disk":PRINT" I  ^ 
relNITIALIZE  font  paramet 
ers" SPRINT" A  =  clear  ALL 
characters" 

NP  120  PR  I  NT  "W  =  reWRITE  screen" 
;PRINT"R  =  RESTART  pragra 
m":PRINT"Q  =  QUIT":PRINT" 
SPACE  BAR  =  pi at /erase  po 
int "TAB (10 J" Cor  cancel  cu 
rrent  command)  ": PRINTED  «= 
DRAW  is  OFF"!PRINT"E  =  E 
RASE  is  OFF"  :DRA»4S«0:  ERAS 
ES=0 

IJ  130  GOSUB  920:  COLOR  4,0:  FOR  Z 
=1  TO  25: LOCATE  Z,42:PRIN 
T  SPACE* (38) ;: NEXT  Z:FOR 
Z=l  TO  Xr LOCATE  Y+l,Z+42s 
PRINT  RIBHT*(STR*(2) ,1);: 
NEXT  ZsFOR  Z=0  TO  1 : FOR  2 
1=1  TO  Y: LOCATE  Zl,42+(2t 
(X+1)):PRINT  RIGHT* (STR*C 
Z1),1>;:NEXT  21,Z:XP=1:YP 
=1:CR=CHR 

H&  140  GOSUB  890:  FOR  Z^^l  TO  Y/8: 
BET  #1, ({CR-l)«Y/e)+Z+l:F 
OR  21=1  TO  X!A=ASC(MID*(D 
«,2i,l)>:IF  A=0  THEN  180 

LH  150  IF  INKEy*="  "  THEN  GOSUB 
930: GOTO  190 

GH  160  FOR  Z2=7  TO  0  STEP  -1:IF 
A=>2'"Z2  THEN  A=A- (2'"22)  :  L 
DCATE  (Z-i)*B+C8-Z2) ,21+4 
2: COLOR  5, 5: PRINT"  "; 

KF  170  NEXT  Z2 

LH  180  NEXT  21,2:COL=(SCREEN(YP, 
42+XP,  DAND  15) 

HI  190  COLOR  ,0: LOCATE  23,1:PRIN 
T  SPACE* (40) ; 

PE  200  LOCATE  YP,  XP+42:  COLOR  1,C 
OL: PRINT  CHR*(1); 

NO  210  A*=INKEY*:IF  A*=""  THEN  2 
10 

N£  220  IF  CANCEL  THEN  CANCEL=0:C 
OLOR  ,0: LOCATE  21,1: PRINT 
SPACE* (40) ; 

J  J  230  IF  LEN(A*)=2  THEN  390  ELS 
E  IF  A*="  "  THEN  IF  DRAWS 
THEN  A*="D"  ELSE  IF  ERAS 
ES  THEN  A*="E"  ELSE  COLOR 
5, 5: LOCATE  YP, XP+42: PRIN 
T"  ";:IF  C0L=5  OR  COL-4  T 
HEN  CaL=3:G0T0  200  ELSE  C 
DL-SsGOTa  200 

PA  240  LOCATE  YP,  XP+42:  COLOR  COL 
, COL SPRINT"  ";:A**CHR*CAS 
C(A*)+32»CA*>="a"  AND  A»< 
="r") ) 

HF  250  IF  A*="C"  THEN  C0L=3;G0SU 
B  890: GOTO  200 

ED  260  IF  A*="T"  THEN  500 

FK  270  IF  A*="B"  THEN  420 

JH  280  IF  A«="W "  THEN  GOSUB  560: 
GOTO  110 

DP  290  IF  A«="M"  THEN  530 

EI  300  IF  A*="I"  THEN  GOSUB  960: 
CLOSE  #1: GOSUB  720: GOTO  1 
30 

JH  310  IF  A*="A"  THEN  GOSUB  960: 
BOSUB  860: GOSUB  890:COL=3 
:CHR=1: GOSUB  920: GOTO  200 

eS  320  IF  A*-"R"  THEN  GOSUB  960: 


CLOSE  #1:RUN 

PL  330  IF  A*="D"  THEN  GOSUB  960: 
CLOSE  #1: SCREEN  0:CLS:END 

FI  340  IF  A*="D"  THEN  DRAWS^1~DR 
AWS:C0L=5:IF  ERASES  THEN 
ERASES=0 

SI  350  IF  A*="E"  THEN  ERAS£S=1~E 
RASES: C0L*3: IF  DRAWS  THEN 
DRAWS=0 

HD  360  LOCATE  19,  15:  IF  DRAWS  THE 
N  COLOR  14,0:PRINT"ON  "  E 
LSE  COLOR  6,0: PR I NT "OFF" 

QI  370  LOCATE  20,  14;  IF  ERASES  TH 
EN  COLOR  14,0:PRINT"DN  " 
ELSE  COLOR  6, 0: PR I NT "OFF" 

CI  380  GOTO  200 

LK  390  A*=RIGHT*(A*, 1):X0=XP:Y0= 
YP; IF  A*="H"  AND  YP>1  THE 
N  YP=YP-I  ELSE  IF  A*="M" 
AND  XP<X  THEN  XP=XP+1  ELS 
E  IF  A*="P"  AND  YP<Y  THEN 
YP-YP+1  ELSE  IF  A*~"K"  A 
ND  XP>1  THEN  XP=XP-1  ELSE 
200 

m  400  LOCATE  Y0,X0+42: COLOR  COL 
, COL : PR I NT "  " ; : CGL= ( SCREE 
NCYP,  XP+42,  DAND  15)  :  IF  D 
RAWS  THEN  C0L=5  ELSE  IF  E 
RASES  THEN  C0L='3 

\n  410  LOCATE  YP, XP+42: COLOR  1,C 
OL: PRINT  CHR* ( 1 ) ; : GOTO  20 
0 

PO  420  SAVED=0:COLOR  2,0: LOCATE 
21, 1:PRINT"SAVING"SPACE*( 
18)  ; 

PD  430  FOR  Xl=43  TO  X+42:F0R  NUM 
=1  TO  Y/S:BYTE«0:FOR  Yl=8 
TO  1  STEP  -l:BYTE='BYTE-2 
- <8-Yl ) t ( (SCREEN (Y1+  CNUM- 
DtSpXl,  DAND  15)<>3);NEX 
T  Yl 

HN  440  IF  INKEY*="  "  THEN  GOSUB 
930: GOTO  200 

KO  450  CHAR(NUM-1,X1-42)=BYTE;  IF 

BYTE=9  THEN  COLOR  4,4:L0 

CATE  (NUM^l)*8+5, XI  SPRINT 

"  ";;LOCATE  (NUM-D »8+8, X 

i SPRINT"  ";sSAVED=l 

BL  460  IF  BYTE==26  THEN  COLOR  4,4 
3  LOCATE  (NUM-D«8+4,XlsPR 
INT"  ";: LOCATE  (NUH-1)*8+ 
5, XI: PRINT"  " j s LOCATE  (NU 
M-l)«8+7,XlsPRlNT"  " ; : SAV 
ED»1 

CC  470  NEXT  NUM,  XI:  IF  SAVED=1  TH 
EN  COLOR  4,0: LOCATE  21,1; 
PR I NT "PATTERN  CANNOT  BE  S 
A VED " s  CANCEL^ 1 : GOTO  200 

NK  480  FOR  2=1  TO  Y/8:  B*""  "  :  FOR 
21-1  TO  X:B*=«B*+CHR*(CHAR 
(Z-1,Z1) ):NEXT  21:LSET  D* 
=B«;PUT  #1,  C  CCHR-DtY/8)  + 
Z+1:NEXT  2 

FC  490  CHR-CHR-lJt  (CHR<94);80SUB 
920  s  COLOR  , 0  s  LOCATE  21,1: 
PRINT  SPACE*(6);CR==CHR!Q0 
TO  140 

FE  500  COLOR  3,0: LOCATE  23,1: LIN 
E  INPUT"Character  to  trac 
e  C!-"-  or  33-126)  >",B*:I 
F  B*=""  THEN  190 

HP  510  CR=VAL(B*)-32;IF  CR<^'23 
THEN  IF  B*>'''^"  OR  B*<"!" 
THEN  BEEP: GOTO  500  ELSE  C 
HR^ASC(B*)-32e GOSUB  920: C 
R-CHR:GOTD  140  ELSE  IF  CR 
<1  OR  CR>94  THEN  BEEP: GOT 
0  500 

Dfl  520  GOTO  140 

KL  530  COLOR  3,0:LOCATE  23,1:LIN 
E  INPUT"Char acter  to  edit 
(f-^  or  33-126)  >",B*:IF 
B*=""  THEN  190 
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HE  540  CR=VAL(B»)-32: IF  CR<=-23 
THEN  IF  B»>"""'  OR  B»<"!" 
THEN  BEEP:BDTO  530  ELSE  C 
HR=ASC ( B$  > -32 : BOSUB  920 : C 
R=CHRsGOTO  140  ELSE  IF  CR 
<1  OR  CR>94  THEN  BEEP: GOT 
0  530 

Jrt  550  CHR=CR:60SUB  920: GOTO  140 

IF  560  CLS:  LOCATE  1,14:  COLOR  0,5 
: PRINT"  Font  Editor  ";LOC 
ATE  3,1:C0L0R  5,0:PRINT"C 
urrent  font  filename  >'*FI 
LE*: RETURN 

CK  570  COLOR  12:  LOCATE  21,1:  IF  C 
ODE*<>FILE$  THEN  390 

DN  580  PRINT  FILE*;"  appears  in 
the  font  code  directory, 
but  isn't  on  disk. ": PRINT 
"Do  you  wish  to  create  a 
new  version  of  ";FILE*;" 
(Y/N)?  "; :GOTD  600 

FB  590  PRINT"There  is  no  entry  f 
or  ";FILE»;"  in  the  font 
code  directory. ":PRINT"Th 
ere  is  ";A*;'"a  file  named 
"jFILES;"  on  this  disk." 
:PRINT"Do  you  wish  to  ere 
ate  an  entry  for  ";FILE*j 
"  (Y/N>?  "; 

LD  600  B*=INPUT*(1) :IF  B*="N"  OR 
B*="n"  THEN  RETURN  20 

NC  610  IF  BS<>"Y"  AND  B*<>"y"  TH 
EN  BEEPjBOTO  600 

KC  620  LOCATE  21,1:  FDR  Z=l  TO  3: 
PRINT  SPACE* (70): NEXT  2:L 
OCATE  21,  1:  PRINT"  (E)  ="  at 
art  with  an  EMPTY  font":P 
RINT" (C)  -  start  with  a  C 
QPY  of  an  existing  font": 
IF  A*=""  THEN  PRINT" C A)  = 
ADD  an  existing  font  fil 
e  to  the  font  code  direct 
ory" 

FC  630  B«-INPUT«(1J :IF  B$="E"  OR 
B*="e"  THEN  BOSUB  560: A* 
="NEW":GOTO  720 

HH  640  IF  B*="A"  OR  B*="a"  THEN 
IF  AS=""  THEN  S0URCE*«F1L 
ES;GOTO  670 

CK  650  IF  B*<>"C"  AND  B*<>"c"  TH 
EN  BEEP: GOTO  630 

Oft  660  CLS:INPUT"Filename  of  fon 
t  to  copy  >", SOURCES :B*=S 
OURCESsGOSUB  940s  IF  B»="" 

THEN  BEEP:BOTO  660  ELSE 
SOURCE$=B* 

J8  670  ON  ERROR  GOTO  710:  OPEN"  I" 
, # 1 , SOURCE* ! CLOSE  # 1 s  OPEN 
"R",#l, SOURCE*, 4: FIELD  #1 
,2  AS  B«,2  AS  C*:GET  #1:X 
=VAL  CB*) : Y=VAL<C*) «S: CLOS 
E  #1:0N  ERROR  GOTO  0 

BI  680  IF  SOURCE*=FILE*  THEN  BOS 
UB  560  s  GOTO  7B0 

NI  690  QPEN"R",#1,  SOURCE*,  X:FIEL 
D  #1,X  AS  B*!0PEN"R",tt2,F 
ILE*,X:FIELD  #2,  X  AS  C* 

IE  700  FOR  Z=l  TO  941  GET  #l,Z  +  lt 
LSET  C*=B*!PUT  #2^Z+1:NEX 
T  Zi CLOSE: BOSUB  560: GOTO 
780 

IL  710  GOSUB  560:  LOCATE  5,1:  PR  IN 
T"ERROR!  "f SOURCE*;"  not 
found  or  couldn't  be  read 
. " : RESUME  620 

EH  720  COLOR  5,0:  LOCATE  4,1:INPU 
T"Character  width  in  dots 
(4-36)  >  ",X: IF  X<4  OR  X 
>36  THEN  BEEP: GOTO  720 

BJ  730  LOCATE  5,  1 :  INPUT"  Char  act  e 
r  height  in  lines  (1-3)  > 
",Y;Y=Y«8:IF  Y< 1  OR  Y/8> 
3  THEN  BEEP: GOTO  730 


EK  740 

PL  750 

EH  760 

HO  770 

JJ  7B0 


flC  790 


BF  B00 
FK  810 

K8  020 
EN  830 
BL  840 

JP  850 
HG  860 
OP  870 

KF  880 

KH  890 

BI  900 
DB  910 

Lf  920 


DR  930 


J I  940 


n   950 
in  960 


W  970 
IC  980 


OPEN  "R",#l, FILE*, 4s  FIELD 

#1,2  AS  B*,2  AS  C* 

LSET  B*=RIGHT*(STR*(X) ,2) 

:LSET  C*=RIGHT*(STR*(Y/0) 

,2) :PUT  #1, 1: CLOSE  #1 

IF  A*="I"  OR  A*="NEW*'  THE 

N  0PEN"R",#1,FILE*,X:FIEL 

D  #1,X  AS  D* 

IF  A*="NEW"  THEN  GOSUB  S6 

0; CLOSE  #1 

COLOR  3,0: LOCATE  23,1: INF 

UT"Enter  code  name  for  th 

is  font  >",CODE*iB*=CODE* 

; GOSUB  940: IF  B*=""  THEN 

BEEP: GOTO  780  ELSE  CODE*= 

B* 

LOCATE  23,1: INPUT"Font  ty 

pe:  (C)  =  Character  or  (H 

)  =  Header   >",TYPE*:IF  T 

YPE*="C"  OR  TYPE*="c"  THE 

N  TYPE=0  ELSE  IF  TYPE*="H 

"  OR  TYPE*="h"  THEN  TYPE= 

2  ELSEBEEP:GOTO  790 

OPEN" I ",#3, "FQNTCODE.DIR " 

:Z=0 

WHILE  N0T(E0F(3)) :FOR  Zl= 

0  TO  2: INPUT  «3,C0DE*(Z1, 

Z):NEXT  ZlsZ-Z+liNENDsCLO 

SE  #3:Z1=0 

IF  Zl^Z  THEN  Z=Z+1  ELSE  I 

F  C0DE*(2,Z1)<>FILE*  THEN 

Z1=Z1+1:G0T0   820 
CODE* ( 0 , Z 1 ) =STR*  C  TYPE ) : CO 
DE* ( 1 , Z 1 ) =CODE*: CODE* (2, Z 
DEFILE* 

0PEN"0",#3, "FDNTCODE.DIR" 
sFOR    Zl=s0    TO    Z-1:F0R    Z2=0 

TO  2: PRINT  *3, CODE* (Z2, Z 
1):NEXT  Z2,Z1: CLOSE  #3 
COLOR  , 0  i LOCATE  23 , 1 : PR I N 
T  SPACE*  C50)  ; : RETURN 
FOR  Z=l  TO  94: FOR  Zl=l  TO 

Y/8 
IF  INKEY*="  "  AND  A*="A" 
THEN  930 

LSET  D*=STRING*CX,CHR*C0) 
):PUT  #1, (Z-l)*Y/8+Zl+l:N 
EXT  Z1,Z: RETURN 
FOR  Zl^l  TO  Y: COLOR  3,3:L 
OCATE  Zl, 43: PR I NT  SPACE* ( 
X); 

IF  INKEY*="  "  AND  A*="C" 
THEN  930 

NEXT  Zl:Zl=FREC"c"):RETUR 
N 

COLOR  7,0:LOCATE  6,1:PRIN 
T"Current  character  =  ";; 
COLOR  15: PRINT  CHR*(CHR+3 
2);: COLOR  7: PRINT  SPC(5); 
"ASCII  =";iCOLOR  15:PRINT 

CHR+32i! RETURN 
CaL= (SCREEN  CYP, 42+XP, 1 ) AN 
D  IS) :CANCEL=1: COLOR  4,0: 
LOCATE  21,1  SPRINT "COMMAND 

CANCELLED": WHILE  INKEY»< 
>""! WEND: RETURN 
C*="":FOR  Z2=l  TO  LEN(B*) 
:ASCII=ASC(MID*(B*,Z2, 1) ) 
:IF  ASCII032  THEN  C*=C*+ 
CHR* (ASCI  1+32* ( (ASCI  I >96) 
AND(ASCII<123) ) ) 
NEXT  Z2;B*=C*: RETURN 
COLOR  12,0: LOCATE  23 , 1 : PR 
INT "Are  you  sure  you  wish 

to  "A*"  (Y/N)?  ";:B*=INP 
UT*(1);IF  B«="Y'*  OR  B«="y 
"  THEN  LOCATE  23,1: PRINT 
SPACE* (41); : RETURN 
IF  B*="N"  OR  B*="n"  THEN 
RETURN  190  ELSE  960 
CLOSE: PR I NT: PR I NT  "Error" 
; ERR; "in  1 ine"; ERL: RESUME 

990 


1£  990  END 


Program  2:  Printing  Progrann 

IF  10  SCREEN  0: WIDTH  80: COLOR  2, 
0,0: KEY  OFF: DIM  TEXT* (94,2 
) , CODE* (3, 100>,B#(960> 

CO  20  READ  A«;IF  A*<>"ENDD"  THEN 
CODE* (0, Z ) =" 1 " : CODE* ( 1 , Z ) 
=A*:FOR  Zl=2  TO  3: READ  A:W 
HILE  A<>-1:C0DE*(Z1,Z)=C0D 
E*(Z1,Z)+CHR*(A):READ  A: WE 
ND:NEXT  Zl: Z=Z+1:G0T0  20 

NH  30  STANDARD=Z-1 

KB  40  CLS:  COLOR  0,2:  LOCATE  1,33: 
PRINT"  Font  Printer  " : COLO 
R  2,0: LOCATE  3, 1 : INPUT"Dri 
ve  with  disk  containing  do 
cument  file  (default  =  A:) 

>  ",DISK1*:IF  DISK1*=""  T 
HEN  DISK1*="A:"  ELSE  IF  RI 
GHT*(DISKl*,l)<>"s"  THEN  B 
EEPiGOTO  40 

PP  50  LOCATE  5, l:PRINT"Insert  di 
sk  containing  document  fil 
e  into  drive  ";DISK1* 
GF  60  LOCATE  7,1:  PRINT  SPACE*  (70 
): LOCATE  7, 1 : INPUT"Name  of 
ASCII  document  file  to  pr 
int  >  ",IN*!IF  IN«=""  THEN 
BEEP: GOTO  60 
DL  70  ON  ERROR  GOTO  S20:OPEN"I", 
#2,DISK1*+IN*:0N  ERROR  GOT 
0  0 
MP  80  FEND=0:  WHILE  NOT  (EOF  (2)  )  ;  L 
INE  INPUT  #2,A*:FEND=FEND+ 
1: WEND: CLOSE  #2 
11  90  IF  FEND=0  THEN  BEEP: LOCATE 
9, 1: PRINT "ERROR:  Input  fi 
le  ";IN*j"  is  empty. ":GOSU 
B  760: GOTO  40 
GO  100  LOCATE  9,1;  PRINT  SPACE*  (7 
8): LOCATE  9, 1 : INPUT"Name 
of  output  file  or  device 
(default  =  LPTl:)  >  ",OUT 
T*:IF  OUTT*=""  THEN  OUTT* 
="LPT1:" 
BB  110  ON  ERROR  GOTO  830:OPEN"D" 
,#1, OUTT*: ON  ERROR  GOTO  0 
ED  120  LOCATE  11,1:  PR  I  NT  SPACE*  ( 
78): LOCATE  1 1 , 1: INPUT"Dri 
ve  with  disk  containing  f 
ont  files  (default  =  B: ) 

>  ",DISK2*:IF  DISK2*'=""  T 
HEN  DISK2*="B: "  ELSE  IF  R 
IQHT*(DIBK2*,  DO":  "  THEN 

BEEP: GOTO  120 
ML  130  IF  DISK2*<>DISK1*  THEN  LO 

CATE  13, 1: PRINT" Insert  di 

sk  containing  font  files 

into  drive  ";DISK2* 
CB  140  PRINT:  PRINT  STRING*  (78,  "- 

") 
DN  150  0PEN"R",#2,DISK1*+IN*,1:F 

lELD  #2,1  AS  I*:FLIN=0:CH 

AR=0:NUM=0 
KM  160  FLIN=FLIN+lr IF  FLIN<=FEND 

THEN  200 
D£  170  CLOSE:  PRINT  STRING*  (78,  " - 

" ) :PRINT"Finished  printin 

g  "; IN*: PRINT 
BN  180  PRINT"Print  another  docum 

ent  (Y/N)  >  "; :A*= INPUT* ( 

1):IF  A*="y"  OR  A*="Y"  TH 

EN   40 
flQ    190    IF    A*<>"n"    AND    A*<>"N"    TH 

EN    BEEP: GOTO    180   ELSE    CLS 

SEND 
EE   200   A*="":ON   ERROR    GOTO   880 
10  210    IF    EOF  (2)     THEN    170    ELSE    C 

HAR=CHAR+1?GET   #2, CHAR: IF 


May  1987     COMPUTEI     87 


ASC(I»)<>13  THEN  A«=A*+I 
»:LS-CI»<>"  ">:BQTO  210 

IJ  220  BET  #2:  IF  ASCCI*)<>10  THE 
N  LF-0  ELSE  CHAR=CHAR+1jL 
F— 1 

BO  230  IF  INBTRCA*,CHR*C12)  )  =  i  T 
HEN  A»^RIBHT*(A»,LEN<fl*)- 
1):PRINT  #1,CHR»C12); 

flD  240  Z-INSTR<A*,",  ">:  IF  Z=0  TH 
EN  540  ELSE  IF  Z»l  THEN  2 
60 

Efi  250  FOR  Zl=l  TG  Z-i:IF  MID* (A 
»,Zl,i)<>"  "  THEN  Z=0:NEX 
T  Zl: IF  Z«0  THEN  540 

SE  260  Z1  =  INSTR{Z,A*,":  "):  IF  Zl=^ 
0  THEN  540  ELSE  FaNT$=MID 
♦CA»,Z+1,Z1-Z-1) 

JL  270  Z2=INSTRCF0NT*,  "-")  :  IF  Z2 
THEN  OPT»*MID* (FONTS, 22) 
;  FONT»-=LEFT*  (FONT*,  Z2-1 ) 

Jfi  280  COLOR  6:PRINT"font=";F0NT 
S;!lF  Z2  THEN  PRINT"  &  "; 
OPTS; 

BJ  290  IF  F0NT«=0LD»  THEN  390 

RC  300  Z3^0 

ER  310  IF  Z3<=STANDARD  THEN  IF  C 
0DE*(1,Z3)=F0NT4  THEN  380 
ELSE  Z3=Z3+1:GDT0  310 

SL  320  FLAG=1:G0SUB  780:  ON  ERROR 
GOTO  e60sOPEN"I",#3,DISK 
2»+"F0NTC0DE.DIR"!aN  ERRO 
R  BOTO  0 

OD  330  Z=STANDARD+lr WHILE  NaT(EO 

F(3}>!F0R  Z3»0  TO  2: INPUT 

#3,C0DE»CZ3,Z):NEXT  Z3:  2 

-Z+1: WEND: CLOSE  #3:Z3=STA 

NDARD+1 

IIJ  340  IF  Z3<Z  THEN  IF  CODE*  ( 1 ,  Z 
3)-=FaNT»  THEN  300  ELSE  Z3 
-=23+1:  BOTO  340 

DH  350  BEEP: PRINT: PRINT: PRINT"No 
entry  for  "jFONT*;"  in  ^ 
ant  code  directory. " 

Ft   360  PRINT"  (U  =  Ignore  font  e 
hange":PRINT" (R)  =  Retry 
on  another  font  file  disk 
"  :B$=INPUT*(1) :IF  B*="i" 
OR  B*="I"  THEN  FLAB=2:G0 
SUB  7S0:BOTD  530 
IF  B*="r"  OR  B»="R"  THEN 
320  ELSE  BEEP: GOTO  360 
NUM=Z3:IF  VAL (CODE* (0, NUM 
)>-l  THEN  PRINT: BOTO  530 
DOUBLE^0:  DNUM:==0i  GR=76:  SPA 
CED='0 :  VERT=  1 :  HaR=  1 :  SP=0 :  P 
R-0; IF  Z2=0  THEN  470 
FOR  Z3=l  TO  LEN(OPT*) :B*^ 
MID* (OPT*, Z3, 1) 
IF  B*="S"  THEN  SPACED=1:I 
F  MID*(0PT*,Z3+1, i)="S"  T 
HEN  SPACED=2:Z3=Z3+1 

in  420  IF  B*="D"  THEN  D0UBLE=1:D 
NUrt^VAL  (MID*  (OPT*,  Z3+1 ,  1 ) 
) :Z3=Z3+i 

KB  430  IF  B$="G"  THEN  GR^VAL(MID 
* (OPT*, 23+1,2) ) :Z3=Z3+2 

FA  440  IF  B*="V"  THEN  VERT=VAL(M 
ID* (OPT*, 23+1,1  J )sZ3=Z3+l 
! IF  VERT>4  THEN  VERT=4  EL 
SE  IF  VERT<1  THEN  VERT=1 

HL  450  IF  B*="H"  THEN  HOR-VAL(MI 
D*(aPT*,Z3+l, 1) ) : 23=23+1: 
IF  H0R<1  THEN  HDR-1 

LB  460  NEXT  Z3 

HE  470  PRINT  #1 ,  CHR*  (27> +CHR*  (50 
)5SlF  FONT*=OLD*  THEN  NUM 
=ONUM; PRINT  "  -  Font  aire 
ady  in  memory- ": GOTO  530 

ID  480  ON  ERROR  BDTO  870:  OPEN"  I" 
, #3 , D I SK2*+C0DE*  C  2 , NUM ) : C 
LOSE  #3: ON  ERROR  GOTO  0 

IF  490  0PEN"R%#3,DISK2*+C0DE*C2 
, NUM), 4: FIELD  #3,2  AS  B*, 
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2  AS  C«sBET  #3, 1:WIDE=VAL 

(B») :HIBH*VAL(C») : CLOSE  # 
3:  SP*=«STRINB*  (WIDE,  0) 
OPEN"R" , #3, DISK2*+C0DE* ( 2 
, NUM), WIDE: FIELD  #3, WIDE 
AS  B* 
FOR  Z=l  TO  94: FOR  Z3=0  TO 

HIQH-1:BET  #3, ( Z-1 ) tHIGH 
+Z3+2: TEXT*  <Z, Z3) =B*: NEXT 

Z3,Z:  CLOSE  #3:  FOR  Z'^0  TO 

HI8H-1:TEXT*(0,Z)=SP*:NE 
XT  2 

OLD*=FaNT* : ONUM=NUM : PR I NT 
"   high-";HIGH; "   wide="j 
WIDE!FLAG=2:G0SUB  780 
A*=MID*(A*,ZH*1) 
COLOR  7: IF  VAL (CODE* C0, NU 
M))=l  THEN  PRINT  A*: PRINT 

# 1 , CODE*  C  2 , NUM ) ; A* ; CODE* 
(3, NUM) J : IF  NDT(LF)  THEN 
PRINT  #1, CHR* (27) ; CHR* (74 
) ;CHR*(n ; :60T0  160  ELSE 
PRINT  #1,"":60T0  160 
IF  SPACED=0  THEN  600 
LE=LEN ( A* ) : B*=A*  :  A*= " "  :  FO 
R  2=1  TO  LE  STEP  WIDE*HOR 
/i2:F0R  Zl=i  TO  WIDEtHOR/ 
12: IF  MID*CB*,Z+Z1-1,1)=" 

"  THEN  NEXT  Z1:A*=A*+"  " 

ELSE  A*-A*+MID*(B*,Z+Z1- 
1,1) 

NEXT  Z:IF  SPACED=1  THEN  6 
00 

SP=SP+1:IF  SP=HIBH*VERT  T 
HEN  SP=0: IF  NOT (PR)  THEN 
600  ELSE  PR=0:GOTO  160 
IF  NOT(LS)  OR  PR  THEN  160 

ELSE  PR=-1 
A*=LEFT* (A*, INT (960/ (WIDE 
*HOR)  )  )  ;LE==LEN(A*)  ;  PRINT 
A* 

FOR  Z1=0  TO  HIGH-liFQR  Z2 
=0  TO  DOUBLE: IF  22=1  THEN 

PRINT  M1,CHR*(27)+CHR*(5 
1)+CHR*(DNUM+1)  ELSE  IF  Z 
l>0  AND  VERT=i  THEN  PRINT 

#1 , CHR* (27) +CHR* (49) 
C*=CHR* (27) +CHR* (BR) +CHR* 
( (LE»WIDE»HOR)MOD  256)+CH 
R* (FIX (LE<WIDE»H0R/256) ) : 
IF  VERT=1  THEN  PRINT  #i,C 

*J 

FOR  Z3=l  TO  LE:ASCII=ASC( 

MID*CA*,Z3, 1) )-32: IF  ASCI 

I<0  OR  ASCII>94  THEN  ASCI 

1=0 

IF  VERT>1  THEN  680 

IF  ASCI  1=0  THEN  FOR  24=1 

TO  HOR: PRINT  #1,SP*;:NEXT 

Z4:B0TD  710 
IF  HaR=l  THEN  PRINT  #1,TE 
XT*(ASCII,21) ;sBOTD  710 
FOR  24=1  TO  WIDE:A*=MID*( 
TEXT* (ASCII, 21) ,24, 1 ) : FOR 

Z5=l  TO  HOR: PRINT  #1,A*; 
:NEXT  Z5, 24: BDTO  710 
FOR  Z4=l  TO  WIDE:A=ASC(MI 
D*CTEXT*CASCII,Z1) ,Z4, 1) ) 
:B#=0 

FOR  Z5=7  TO  0  STEP-1:IF  A 
>=2'"Z5  THEN  A=A-(2'^Z5):F0 
R  26=0  TO  VERT-l:B#=B#+(2 
'^Z5'"VERT)«  (2-^26):  NEXT  Z6 
NEXT  Z5:F0R  Z5=l  TO  HDR:B 
# ( ( 23-1 ) tWIDE*HOR+ ( Z4-1) « 
H0R+Z5)=B#:G0SUB  750: NEXT 

Z5,24 
NEXT  23, 22: IF  VERT=1  THEN 

730 
FOR  22=VERT  TD  1  STEP-1:P 
RINT  #1,C*;:F0R  23=1  TD  W 
IDE«HDR«LE: PART=INT ( ( (B#  C 
Z3) /256^22-INT (B# (23) /256 


"-22)  )  *256'"Z2)  /256^{Z2-1)  ) 
SPRINT  #1, CHR* (PART) ; :eDS 
UB  750: NEXT  Z3! PRINT  #1,C 
HR*(27)+CHR*(49) :NEXT  22 

BC  730  NEXT  21:  IF  VAL  (CODE*  (0,  NU 
M))^2  THEN  PRINT  #1,"":G0 
TO  160 

HC  740  PRINT  #1 ,  CHR*  (27) +CHR*  (50 
):GOTD  160 

PC  750  PRINT"  !  "CHR*  ( 29)  "  "CHR*  (2 
9>;: RETURN 

GC  760  PRINT  TAB(Q) "Press  any  ke 
y  to  continue, .."! WHILE  I 
NKEY*= " " ! WEND : RETURN 

HD  770  LOCATE  11,1:  PRINT  SPACE*  ( 
78): PRINT  SPACE* (78) : RETU 
RN 

HI  780  IF  0ISK1*<>DISK2*  THEN  RE 
TURN  ELSE  BEEP: ON  FLAB  GO 
TD  790,800 

Nfl  790  PRINT: PR I NT "Remove  docume 
nt  dl«k  from  drive  "jDISK 
l*j".  Insert  font  disk."i 
GOTO  810 

FD  800  PRINT:  PR  I  NT  "Remove  font  d 
isk  from  drive  ";DISK1*;" 
.  Insert  document  disk." 

OP  810  BEEP:  PR  I  NT  "Press  any  key 
when  ready. "'WHILE  INKEY* 
="": WEND: RETURN 

CB  820  IF  ERR053  THEN  890  ELSE 
BEEP: LOCATE  9, 1: PR I NT "ERR 
OR:  Input  file  ";IN*j"  no 
t  found  on  the  disk  in  dr 
ive  ";DISKl»sGOSUB  760: RE 
SUME  40 

flA  830  IF  ERR=24  OR  ERR=25  OR  ER 
R-27  OR  ERR=64  OR  ERR=68 
THEN  BEEP : LOCATE  1 1 , 1 : PR I 
NT"ERROR  #";ERR;"-  Check 
device  ";0UTT*ie0SUB  760: 
GOSUB  770: RESUME  100 

OC  840  IF  ERR05S  THEN  890  ELSE 
BEEP : LOCATE  1 1 , 1 : PR I NT " ER 
RDR:  The  disk  already  con 
tains  a  file  named  " ; QUTT 
*:PRINT"Do  you  want  to  re 
place  the  existing  file  ( 
Y/N)  >  "; :A»=INPUT*(1):IF 
A*="y"  OR  A*="Y"  THEN  KI 
LL  OUTT*: GOSUB  770: RESUME 
110 

JK  850  IF  A*<>"n"  AND  A*<>"N*'  TH 
EN  BEEP: GOTO  840  ELSE  GDS 
UB  770: RESUME  100 

BJ  860  IF  ERR053  THEN  890  ELSE 
BEEP: PRINT: PRINT: PRINT"ER 
ROR:  The  disk  in  drive  "; 
DISK2*j"  has  no  font  code 
directory  fiXe-'sPRINT  T 
AB(8) "Insert  another  disk 
-•':  GOSUB  760!  RESUME  320 

BH  870  IF  ERROS3  THEN  890  ELSE 
BEEP: PRINT: PRINT: PRINT" ER 
ROR:  Font  file  ";C0DE*(2, 
NUM) J "  not  found  on  the  d 
isk  in  drive  ";DISK2*:RES 
UME  360 

CB  880  IF  ERR=15  THEN  RESUME  200 

CD  890  PRINT:  PRINT" Error";  ERR;  "i 
n  line";ERL: RESUME  900 

LC  900  END 

C6  1000  DATA  REGULAR, -1,-1 

JP  1010  DATA  CONDENSED, 15,-1, 18, 
-1 

EE  1020  DATA  DOUBLE  WIDTH,  14, -1 ,  2 
0,-1 

ON  1030  DATA  ENDD 
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Program  3:  Call  Code  Lister 

flS  10  SCREEN  0: COLOR  12,0,0:WIDT 
H  S0iCLS 

CP  20  PRINT;  INPUT"Drive  contain! 
ng  font  files  (default  =  A 
:)  >  ", DISK*: IF  D1SK*=""  T 
HEN  DISK*="A:  " 

PB  30  ON  ERROR  GOTO  100:OPEN"I", 
#1 , DISK$+"FONTCODE, DIR" : ON 
ERROR  GOTO  0 

6P  40  PRINT: PRINT"Select  output 
device  (P)rinter  (S)creen 
or  (D)isk"  :PRINT 

EN  50  ft*=INPUT*(l>  :  IF  A*="5"  OR 
A$="S"  THEN  OUTT$="SCRN: " 
ELSE  IF  A*="p"  OR  At="P"  T 
HEN  0UTTS="LPT1:"  ELSE  IF 
A*="d"  OR  A*="D"  THEN  70  E 
LSE  BEEP: GOTO  50 

GJ  60  TB=0:OPEN"O",#2,OUTT*:WHIL 
E  NOT (EOF ( 1) ): INPUT  #1,A$: 
INPUT  ttl,A*s INPUT  #1,B*:PR 
INT  #2,TAB(40*Te)B$; "  =  "; 
A*; :TB=1-TB: WEND: PRINT  #2, 
"":CLaSE:END 

GD  70  PRINT:  PRINT"Do  you  want  th 
e  alphabet  for  each  font  p 
Tinted  also  (Y/N)  >  ":A$=I 
NPUT*(i):lF  A*="n"  OR  A*=" 
N"  THEN  90  ELSE  IF  A$<>"y" 
AND  A*<>"Y"  THEN  70 

SP  80  C$=CHR*(13)+CHR*(10) :D*=C* 
:FOR  Z=65  TO  90: C$=C$+CHR* 
(  Z  )  :  D*=D«^-CHR*  (  Z+32)  :  NEXT 
Z 

NN  90  0PEN"0*',«2,  "ALLFONTS":WHIL 
E  N0T(E0F(1) ): INPUT  ttl,A$: 
INPUT  #1, A*: PRINT  #2,","; A 
*j ": "; A*;C*;D*: INPUT  #1,A$ 
: WEND: CLOSE: END 

DL  100  BEEP:PRINT:PRINT"The  disk 
in  drive  ";DISK*;"  has  n 
o  font  code  directory  fil 
e.  ":RESUIiE  20 


Program  4:  Banner  Printer 

CH  10  SCREEN  0:  WIDTH  80;  COLOR  1, 
0,0:CLS:DIIi  TEXT*(94,2> 

FC  20  LINE  INPUT"Enter  Banner  wo 
rdB  >  ",A» 

JB  30  INPUT"Enter  Font  Call  Code 
>  ", CODE*: FDR  Z-1  TO  LEN t 
CODE*) :B*=MID»(CODE», Z, 1> : 
IF  B»>'*'"'  AND  BS<"-C"  THEN 
C*"C*+CHR»(ASC(B»)-32>  ELS 
E  IF  B»<>"  ■*  THEN  C*=C»+B» 

BL  40  NEXT  Is  COLOR  6:  PRINT  "Inse 
rt  dlmk  with  font  files  in 
to  disk  A;  and  press  any  k 
•y  when  ready": AN»- INPUT* ( 
1> 

ON  50  CODES=C*:aN  ERROR  GOTO  240 
: OPEN" I " , #1 , "FONTCODE. DIR" 
: WHILE  NOT(EaF(l) )! INPUT  # 
1,C»: INPUT  #1,C*:IF  CODE»< 
>C»  THEN  INPUT  #l,C»sWEND! 
CLOSE 1  BEEP I  COLOR  7 : LOCATE 
3,liPRINT  "FONT  NOT  FOUND" 
SPACE*  ( 65 )  !  C*-= "  "  I  COLOR  1 :  L 
DCATE  2,1: GOTO  30 

FD  60  INPUT  #1,  FILE*;  CLOSE:  LOCAT 
E  3, li PRINT  SPACE* (79): ON 
ERROR  GOTO  0iOPEN"R", #1 ,FI 
LE*^ 4: FIELD  #1,2  AS  B*,2  A 
S  C*:6ET  #1, liWIDE-VALCB*) 
s  HIQH-VAL (C*) s  CLOSE s  aPEN"R 
",#1, FILE*, WIDE: FIELD  #1,W 
IDE  AS  B* 


PH  70  FOR  Z-1  TO  94s  FOR  Z1*0  TO 
HIQH-1:GET  #1, <Z-1) *HIGH+Z 
1+2;TEXT»(Z,Z1)«B*:NEXT  Zl 
, Z ! CLOSE: SP*-STRING» (WIDE, 
0J:FaR  Z-0  TO  HIQH-l!TEXT* 
(0,Z)«SP*:NEXT  Z 
FH  B0  COLOR  2:  LOCATE  4,  1:  PRINT:  F 
OR  Z-1  TO  e0/(HIGH18>!PRIN 
T  USING"a<##\\*.«&"jSPACE*( 
10J-Z;  ">"jZlfa«HIQH/10j"  in 
ches  tall": NEXT  Zi PRINT 
BH  90  INPUT  "Enter  VERTICAL  ex  pan 
•ion  multiple  >  ", VERT; IF 
VERT->Z  THEN  90 
JF  100  COLOR  3:  FOR  Zl-1  TO  Z-1:L 
OCATE  Z 1+4, 301  PRINT  USING 
"##\\###-  «&"  ;  Z 1 J  " )  '*  i  LEN  C 
A»)$ZltWIDE/10.28S7; "  inc 
hem  long"! NEXT  Zl 
BJ  110  LOCATE  5+Z,  40:  INPUT -Enter 
HORIZONTAL  expansion  mul 
tiple  >  ",HOR 
PB  120  B«="'*:FOR  Z=l  TO  LeN{A»): 
IF  MID* (A*,  Z,  DO"  "  THEM 
B*-B*+MID*(A*,Z,1) 
JD  130  NEXT  Z:  COLOR  6!  LOCATE  IB, 
25:PRINT"Create  the  lette 
rs  of  the  banner  with:'*TA 
B(2Sr'l>  The  original  str 
ing  "TAB(25>"2)  Each  lett 
er  creating  itselt"TAB(25 
> "3)  You  enter  the  string 
used" SPRINT 
PL  140  LOCATE  22,30:  INPUT  "Enter 
selection  >  ",AN!lF  AN>3 
OR  AN<1  THEN  140  ELSE  IF 
AN-3  THEN  LOCATE  23, 30 J  IN 
PUT"Enter  String  >  "^B* 
FE  150  COLOR  20:  LOCATE  3,ia:PRIN 
T"SET  UP  PRINTER  AND  PRES 


S  ANY  KEY  WHEN  READY": AN* 
-INPUT*(1) :LOCATE  3, IS: PR 
INT  SPACE* (IB) "PRINTING"S 
PACE* (18) 

PO  160  TABB*'-SPACE*(INT((80-VERT 
I8*HIGH)/2>) :LPRINT  CHR* ( 
27>;CHR*<49> 

«K  170  FDR  Z=-l  TO  LEN(A*):IF  MID 
*(A*,Z,n-"  "  THEN  FOR  Zl 
-1  TO  WIDE«HOR:LPRINT:NEX 
T  Z1:G0T0  230 

JC  180  ST=ST+1:F0R  Zl=l  TO  WIDE: 
FOR  Z2-1  TO  H0R:ST-ST+1:I 
F  ST>LEN(B*)  THEN  ST"1 

DP  190  PT«ST:FOR  Z3=HIGH-1  TO  0 
STEP-1 s  ASC I I-ASC (MID* (TEX 
T* (ASC (MID* (A*, Z, 1 ) ) -32, Z 
3) ,Z1, 1) ) :FOR  Z4»0  TO  7:1 
F  ASCII  MOD  2^(Z4+1>>0  TH 
EN  ASCI I -ASC II -2^Z4: FLAG- 
-1  ELSE  FLAQ-0 

CD  200  FOR  Z5"l  TO  VERT:  PT=PT'<-1 : 
IF  PT>LEN(B*)  THEN  PT-1 

PE  210  IF  NOT  (FLAG)  THEN  LN*=LN* 
+"  "  ELSE  IF  AN=2  THEN  LN 
♦-LN*+MID*(A*,Z,i)  ELSE  L 
N*-LN*+MI D* ( B* , PT , 1 ) 

KH  220  NEXT  Z5,  Z4,  Z3:  LPRINT  TABB 
*rLN*; SPACE* (Q0-LEN (TABB* 
+LN»))s:LN*-=""!NEXT  Z2,Z1 

ED  230  NEXT  Z:  COLOR  7:BEEP!CLS:E 
ND 

AE  240  COLOR  7:PRINT"F0NT  FILES 
NOT  FOUND  -  Insert  correc 
t  disk  and  press  any  key 
to  continue" :AN*=INPUT*(1 
)! LOCATE  2,1 1  RESUME  20 
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128  Colorswap 


This  short  machine  language  routine 
makes  it  simple  to  create  dazzling 
special  effects  on  the  Commodore  128 
by  swapping  colors  in  the  multicolor 
graphics  mode.  Several  BASIC  dem- 
onstration programs  are  included  to 
show  you  how  to  use  the  routine,  A 
disk  drive  is  required. 


Many  different  graphics  effects  are 
possible  in  the  Commodore  128's 
multicolor  graphics  mode.  Here  is  a 
brief  explanation  of  that  mode  and 
the  way  it  is  used  by  "128  Color- 
swap."  A  multicolor  mode  screen 
consists  of  1000  blocks  of  32 
double-width  pixels.  Four  different 
color  sources  can  be  used  within 
each  block  of  pixels:  background, 
foreground,  multicolor  1,  and  mul- 
ticolor 2.  These  color  sources  corre- 
spond to  the  color  source  numbers 
0,  1,  2,  and  3  in  the  BASIC  COLOR 
statement.  Although  each  of  the 
1000  blocks  of  pixels  can  have  its 
own  colors  for  each  of  the  four  color 
sources,  this  article  explores  some 
of  the  effects  possible  when  the 
same  four  colors  are  used  for  the 
entire  screen  and  three  of  the  four 
colors  are  instantly  interchanged. 

Creating  The  Machine 
Language  Routine 

To  begin,  type  in,  save,  and  run 
Program  1.  This  program  creates  a 
short  machine  language  (ML)  rou- 
tine on  disk  using  the  filename 
COLORSWAP.  You  may  want  to 
give  Program  1  a  descriphve  name 
and  keep  it  to  create  the  Colorswap 
routine  on  other  disks.  The  other 
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programs  demonstrate  how  you 
can  use  the  ML  routine  in  your  own 
programs  even  if  you're  not  an  ML 
programmer. 

Demonstration  Programs 

Program  2  is  the  first  demonstra- 
tion program.  Type  it  in  and  save  it 
on  the  disk  containing  the  ML  file 
COLORSWAP.  Now  run  the  pro- 
gram: It  displays  three  colored  box- 
es. Press  any  key  (except  Q,  which 
exits  the  program)  to  see  how  the 
colors  are  swapped.  Each  time  you 
press  a  key,  the  colors  are  shifted 
one  box  to  the  right  with  the  right- 
most color  going  into  the  box  on  the 
left.  The  box  on  the  left  is  always 
the  current  foreground  color  at  the 
moment  a  key  is  pressed.  Likewise, 
the  center  box  is  the  current  multi- 
color 1  color  and  the  right  box  is  the 
current  multicolor  2  color. 

When  you  press  a  key,  the  pro- 
gram calls  the  ML  routine  with  the 
statement  SYS  2816.  This  routine 
replaces  the  multicolor  2  color  with 
the  multicolor  1  color,  replaces  the 
multicolor  1  color  with  the  fore- 
ground color,  and  replaces  the  fore- 
ground color  with  the  old  multicolor 
2  color.  If  you  look  at  Program  2, 
you'll  see  that  it  executes  SYS  2816 
once  in  line  60  before  it  waits  for  a 
keypress  in  line  70.  This  is  done 
because  the  ML  routine  does  not 
change  any  colors  the  first  time  it  is 
called  in  a  program. 

Programs  3,  4,  and  5  show 
how  rapid  color  swapping  can  sim- 
ulate movement.  Type  in  and  save 
all  of  them. 

Program  3  creates  a  red,  green, 
and  blue  spiral  design  against  a 


white  background.  When  the  pat- 
tern is  complete,  the  spiral  appears 
to  rotate  rapidly.  In  fact,  this  illu- 
sion is  achieved  without  redrawing 
anything  or  swapping  screens 
(page  flipping).  Instead,  the  pro- 
gram simply  calls  the  Colorswap 
routine  to  swap  the  colors. 

Programs  4  and  5  use  a  similar 
technique.  Program  4  creates  the 
illusion  of  rushing  through  a  tunnel. 
Program  5  has  an  interesting  3-D 
effect  that's  difficult  to  describe. 

Using  Colorswap 

Colorswap  is  easy  to  put  to  work. 
Because  the  ML  routine  resides  in 
the  cassette  buffer,  it  can  be 
BLOADed  at  any  point  in  your  pro- 
gram before  the  first  SYS  2816  that 
activates  it.  Keep  in  mind  that  no 
colors  are  changed  the  first  time 
you  call  the  ML  routine  (this  is  not 
important,  however,  if  you  intend 
to  call  the  ML  many  hmes  in  suc- 
cession to  simulate  animation). 


''128  Colorswap"  is  a  machine  language 
utility  that  juakes  it  possible  to  create 
interesting  graphics  displays.  In  this 
screen,  different  colors  in  the  design  are 
changed  rapidly  to  create  an  animated, 
S-D  effect. 
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A  second  point  to  remember  is 
that  Colorswap  will  change  the 
color  of  all  non-background  pixels 
on  the  screen  to  the  current  color 
source  colors  defined  in  your 
BASIC  program.  A  multicolor 
screen  could  contain  as  many  as  16 
colors,  but  after  you  call  the  ML 
routine,  the  number  of  colors  is  re- 
duced to  four  at  the  most.  This 
might  be  useful  in  some  applica- 
tions, but  for  simulating  animation 
you  should  create  the  display  using 
just  one  coloi  for  each  of  the  four 
color  sources. 

It's  important  to  time  color 
changes  carefully  to  eliminate  flick- 
ering in  simulated  animation.  Flick- 
ering occurs  in  cases  where  the 
Colorswap  routine  cannot  change 
the  colors  everywhere  on  the  screen 
during  the  time  the  raster  is  outside 
of  the  display  area.  No  flashing  is 
visible  in  Programs  3-5  because  the 
timing  is  such  that  the  flickering  is 
limited  to  the  top  left  corner  of  the 
screen,  where  no  swapping  occurs. 
The  timing  in  all  three  demonstra- 
tion programs  is  controlled  by  the 
same  series  of  statements.  (See  lines 
130-140  of  Program  3.)  Fortunate- 
ly, the  timing  that  produces  the 
least  amount  of  flicker  also  pro- 
duces a  nice  rate  of  color  changing. 
If  you  want  to  use  a  different  rate  in 
your  own  programs,  you  may  have 
to  experiment  a  bit. 

BASIC  7.0  makes  it  easy  to  cre- 
ate multicolor  graphics  screens,  and 
Colorswap  can  really  make  those 
screens  come  alive.  The  short  dem- 
onstration programs  in  this  article 
just  hint  at  what  is  possible. 

For  instaictions  on  entering  this  progrann, 
please  refer  to  "COMPUTE  I's  Guide  to  Typing 
In  Programs"  elsewhere  in  tiiis  issue, 

Program  1:  128  COLORSWAP 
File  Creator 

QK  10  T=0;FORN=2816TO2920:READ 

K : T=T+K : POKEN , K:NEXT 
JE  20  IFTO15400THENPRINT"*** 

{space} ERROR  IN  DATA  STA 

TEMENTS  ***"iEND 
PD  30  BSAVE"C0LORSWAP",P2816T0 

P2921 
JD  40  PRINT "COLORSWAP  SUCCESSF 

ULLY  CREATED": END 
BP  50  DATA  166,132,164,133,165 

,134,134,133 
DQ  60  DATA  132,134,133,132,10, 

10,10,X0 
MR  70  DATA  24,101,133,133,250, 

169,0,133 
JG  80  DATA  251,133,253,169,216 

,133,252,169 


JF  90  DATA  28,133,254,162,4,16 

0,0,165 
DB  100  DATA  134,145,251,165,25 

0,145,253,200 
PB  110  DATA  208,245,230,252,23 

0,254,202,208 
AM  120  DATA  238,165,1,41,254,1 

33,1,162 
KK  130  DATA  4,160,0,132,251,16 

9,216,133 
KP  140  DATA  252,165,134,145,25 

1,200,208,249 
RB  150  DATA  230,252,202,208,24 

4,169,10,205 
KH  160  DATA  18,208,208,251,165 

,1,41,253 
ER  170  DATA  133,1,165,1,9,3,13 

3,1 
QM  180  DATA  96 

Program  2:  1 28  Colorswap— 
Demo  1 

GM  10  BLOAD" COLORSWAP" 

MA  20  COLOR0,2:COLOR1,3:COLOR2 

, 6 :C0L0R3 , 7 : C0L0R4 , 2 : GRA 

PHIC3,1 
DD  30  X1=10:Y1=70!X2=50:Y2=130 
PD  40  F0RC=lT03sB0XC,Xl,Yl,X2, 

Y2   1 
EJ  50  Xl=Xl  +  50:X2==X2  +  50iNEXT 
MX  60  SYS  28 16 

BA  70  GETKEYA$£lFA$<>"Q"THEN60 
JE  80  CQLOR0,12!COLOR4,14;GRAP 

HIC0,1:GRAPHICCLR 

Program  3:  128  Colorswap— 
Demo  2 

BLOAD "COLORSWAP " 
COLOR0, 2  sCOLORl , 3 :COLOR2 
, 6 : C0L0R3 , 7 : C0L0R4 , 2 
GRAPHIC3 , 1 : CX=80 :CY=100 
CIRCLE3,CX,CY,63,90 
RD=89 . 5 :TP=2*t :K=9 :N=20 : 
F=RD/TP ; DA=TP7k ; DB=TP/N : 
A=0:C=4 

FORI=1TOKjB=0:A=A+DAjC=C 
-1 ; IFC=0THENC=3 
DRAWC,CX,CY 

F0RJ=1T0N : B=B+DB : R=F*B : D 
RAWCT0CX+.7*R*SIN(A+B),C 
Y+R*  cos ( A+B )  : NEXT J , I 
DRAW3,78,102:A=0 
FORI=1TOK:A=A+DA!C=C-1 j 
IFC-0THENC=3 
PAINTC,CX+.65*R*SIN(A), 
CY+ . 95  *R*C0S { A) , 1 ;NEXT 
CIRCLE0,CX,CY,63,90 
FORN=1TO10:NEXT:SYS2816 
GETA$ : I FA$  =  " " THENl 3  0 
COLOR0 ,12: C0L0R4 , 1 4 : GRA 
PHIC0, 1 iGRAPHICCLR 


GM 

10 

GB 

20 

KF 

30 

DH 

40 

EG 

50 

AQ  60 

FR  70 
QH  80 


QF  90 
MP  100 

GQ  110 

RK  120 

CD  130 

MS  140 

BD  150 


Program  4:  128  Colorswap — 
Demo  3 

GM  10  BLOAD "COLORS WAP" 

CR  20  COLOR0,1 :COLORl,3:COLOR2 

, 6 : C0L0R3 , 7 ; C0L0R4 , 1 : GRA 

PHIC3,1 
JM  30  C=1:X1=16:X2=144:Y1=10:Y 

2=190 
RK  40  FORI=0TO10:XP( 1)^X1+1 :YP 

(I)=Y1+1 
HK  50  B0XC,X1,Y1,X2,Y2 
BC  60  C=C-1 :IPC=0THENC=3 
SM  70  X1=X1+.1*(X2-X1) rX2=159- 

XI 


AB  80  Y1=Y1+.1*(Y2-Y1) :Y2=199- 

Yl ;N£XT 
QA  90  C=2:FORI=0TO9:C=C-1:IFC= 

0THENC=3 
EX  100  PAINTC,XP(I),YPCI),1iNE 

XT 
KA  110  GETA?:IFA$<>""THEN130 
JS  120  FORN==1TO10:NEXT:SYS2816 

:GOTO110 
KB  130  COLOR0, 12:COLOR4,14:GRA 
PHIC0, 1 :GRAPHICCLR 

Program  5:  128  Colorswap— 
Demo  4 

GM  10  BLOAD "COLORSWAP" 

MA  20  COLOR0,2:COLOR1,3:COLOR2 

, 6 : C0L0R3 , 7 : COLOR4 , 2 : GRA 

PHIC3,1 
RM  30  CX=80:CY=110:RD=70!TP=2* 

t ;N=15:F^RD/{2*TP) : DB=TP 

7(N+N) :C=1 
QG  40  F0RJ=lT04.8*NtB»B+DB:R=F 

*B:X=CX+.7*R*SIN(B) :Y=CY 

+R*C0S(B) 
EK  50  IFJ>10THENCIRCLEC,X,Y, *1 

75*R, .25*R:PAINTC,X,Y,0 
BC  60  C=*C+1;IFC=4THENC=1 
RJ  70  NEXT 

CF  80  GETA?:IFA$<>""THEN100 
CD  90  FORN=1TO10;SYS2816:GOTO8 

0 
EX  100  COLOR0,12;COLOR4,14:GRA 
PHIC0, 1:GRAPHICCLR 


COMPUTE!  Disk 
Subscriptions 

COMPUTE!  Disks  are 
available  for  the 
following  computers: 

•  Apple  II  series 

•  Commodore  64  and  126 

•  Atari  400/800  /XL/XE 

•  IBM  PC  and  PCjr 

Each  error-free  disk 
contains  all  the 
programs  from  the 
previous  three  issues  of 
COMPUTE!.  With  a  disk 
subscription,  you'll 
receive  one  disk — for 
the  machine  you 
specify — every  three 
months.  To  subscribe, 
call  toll  free 
800-247-5470 
(In  Iowa  800-532-1272). 
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Six  New  Operators 
For  Atari  BASIC 


Rhett  Anderson,  Assistant  Editor 


This  compact  machine  language  utility 
adds  six  useful  bitwise  operators  to 
Atari  BASIC. 


Atari  BASIC  differs  from  most  other 
BASICS  in  a  number  of  ways.  Al- 
though it  includes  some  hardware- 
related  commands  (GRAPHICS, 
STICK,  PADDLE,  and  so  on),  its 
lack  of  bitwise  operators  makes  ac- 
cessing other  hardware  features  dif- 
ficult. ''Six  New  Operators  for  Atari 
BASIC  adds  six  bitwise  operators 
to  BASIC,  The  program  is  pub- 
lished in  the  form  of  BASIC  state- 
ments which  you  can  add  to  your 
own  programs.  Begin  your  program 
at  line  30. 

Bitwise  Operators 

What  are  bitwise  operators,  and 
what  makes  them  so  important?  On 
some  computers  you  may  see  a  line 
that  looks  like  this: 

10  POKE  65460,PEEK <65460) 
AND  254 

This  line  looks  confusing  to 
most  Atari  programmers  because 
Atari  BASIC  uses  AND  only  as  a 
logical  operator.  Logical  operators 
consider  values  to  be  either  true  or 
false.  They  are  often  used  to  create 
an  IF  statement  that  contains  two  or 
more  logical  tests.  For  instance,  this 
line  uses  AND  as  a  logical  operator: 


20 


IF  A=l  AND 
GOTO  200 


Y<200  THEN 


In  this  statement,  the  computer 
performs  GOTO  200  only  when  the 
value  of  A  is  1  and  the  value  of  Y  is 
less  than  200.  The  AND  links  to- 
gether the  conditions  A  =  l  and 
Y<200, 


In  Atari  BASIC,  a  zero  is  treat- 
ed as  false  and  anything  else  is 
considered  true.  Logical  operators 
always  return  a  value  of  either  0  or 
1.  Thus,  the  result  of  the  IF  test  in 
line  20  is  0  when  one  or  both  condi- 
tions are  false,  and  1  when  both  of 
them  are  true. 

A  bitwise  operator,  on  the  other 
hand,  treats  each  bit  of  a  byte-size 
value  separately.  A  plain  English 
translation  of  line  10  would  read 
something  like  this:  "Get  the  value 
from  memory  location  65460  and 
perform  an  AND  operation  with 
the  value  254,  treating  each  bit  sep- 
arately. Store  the  result  back  in 
location  65460.''  Since  254  is 
1 1 1 1 1 1 10  in  binary,  line  10  has  the 
effect  of  turning  off  the  least  signifi- 
cant bit  of  location  65460  (setting 
the  lowest  bit  to  0). 

Bitwise  operators  are  extreme- 
ly useful  when  you  need  to  access 
one  of  the  Atari's  hardware  regis- 
ters (a  memory  location  set  aside  for 
controlling  a  specific  hardware  fea- 
ture). Some  hardware  registers 
serve  more  than  one  purpose,  with 
each  bit  in  the  register  controlling  a 
different  feature.  There  are  many 
cases  where  you  might  want  to 
change  the  value  of  just  one  bit  in  a 
hardware  register,  without  disturb- 
ing the  other  bits.  That  sort  of  activ- 
ity is  difficult  if  you  don't  have 
bitwise  operators. 

This  program  provides  a 
convenient  means  for  performing 
bitwise  operations  such  as  the  one 
in  line  10.  If  you  are  a  bit  confused 
by  the  preceding  explanation,  don't 
lose  heart.  The  last  section  of  this 
article  offers  some  examples  which 
you  can  use  even  if  you  don't  un- 
derstand binary  numbers  or  bitwdse 
operators  fully. 


Operator  List 

The  new  bitwise  operators  are  XOR 
(exclusive  OR),  BOR  (Bitwise  OR), 
BAND  (Bitwise  AND),  BNOT 
(Bitwise  NOT),  SHL  (SHift  Left), 
and  SHR  (SHift  Right),  Let's  exam- 
ine them. 

XOR.  The  result  (for  each  bit)  is  1  if 
one  and  only  one  of  the  operands  is 
1.  So,  1  XOR  1  =  0  and  0  XOR 
1  =  1. 

BAND.  The  result  is  1  only  if  both 
operands  are  1.  So,  1  AND  1  =  1 
and  0  AND  1  =  0. 
BOR.  The  result  is  1  if  either  or 
both  operands  are  1.  So,  1  OR 
1  =  1  and  0  OR  1  =  1. 
BNOT,  The  result  is  opposite  the 
operand  (this  operator  only  accepts 
one  operand). 

SHL.  Shifts  all  bits  (16  of  them)  to 
the  left  a  designated  number  of 
times.  Each  shift  is  equivalent  to  a 
multiplication  by  2. 
SHR.  Shifts  all  bits  to  the  right  a 
specified  number  of  times.  Each 
shift  is  equivalent  to  an  integer  divi- 
sion by  2. 

These  operators  are  accessed 
with  the  USR  function.  Following 
are  examples  which  show  the  syn- 
tax of  each  operator. 

RESULT  =  USR(XOR.n,fj) 
RESULT  =  USR{BAND.iJ,f?) 
RESULT  =  USR(BOR,flJ0 
RESULT  =  USR(BN0T,f7) 
RESULT=USR(SHL,flJi) 
RESULT  =  USR(SHR,/?.iO 

Each  USR  statement  must  in- 
clude the  desired  operator  (XOR, 
BAND,  and  so  on)  plus  two  oper- 
ands (except  for  BNOT,  which 
takes  only  one  operand).  The  oper- 
ands— represented  by  a  and  b  in  the 
examples — are  the  values  needed 
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to  perform  the  operation.  The  oper- 
ands may  consist  of  numeric  con- 
stants or  any  expressions  that 
evaluate  to  a  numeric  value.  For 
instance,  both  of  these  lines  return 
the  result  of  3: 

10  RESULT=USR (BOR, 1 , 2> 

20  A=l:B=(2»A): RESULT=USR 
(BOR, A, B> 

In  each  case,  the  variable  RE- 
SULT will  contain  the  result  of  the 
operation.  Of  course,  you  can  re- 
place RESULT  with  any  legal  Atari 
BASIC  variable  name.  To  save 
space,  the  machine  language  rou- 
tine includes  no  error  checking,  so 
be  sure  to  include  the  proper  num- 
ber  of  parameters.  If  you  don't,  you 
will  have  to  press  SYSTEM  RESET 
to  regain  control  of  your  computer. 

Examples 

Bitwise  operators  can  be  used  in 
many  different  ways.  Following  are 
some  examples  which  you  can  use 
in  your  own  programs.  Ian  Chad- 
wick's  book.  Mapping  the  Atari 
(available  from  COMPUTE!  Books), 
contains  much  more  information 
about  hardware  registers  and  how 
to  use  them. 


B=USR (BAND, A, 1 ) : REM  B= 
1  IF  A  IS  ODD,  B=0  IF 
A  IS  EVEN 

B=USR (XOR,B, 1 > : REM  MAK 
ES  B=l  IF  B  WAS  0,  MAK 

ES  B=0  IF  B  WAS  1. 

B  =  USR  (BISfOT,  B)  :  REM  SAME 
AS  ABOVE 

B=USR(BAND,NUM, 255) : RE 
M  RETURNS  THE  LOW  BYTE 
OF  NUM 

B=U3R (SHR, NUM, 8) : REM  R 
ETURNS  THE  HIGH  BYTE  D 
F  NUM 

A=USR(BAND, 8, STICK (0) ) 
:REM  RETURNS  A  0  IF  TH 
E  JOYSTICK  IS  PRESSED 
RIGHT  (AND  A  8  IF  IT  I 
SN'  T) 

A=USR(BAND, 1 , PEEK < 5327 
9)):REM  RETURNS  A  0  IF 

START  IS  PRESSED,  A  1 

IF  IT  ISN'T. 

POKE  623, USR <BGR, PEEK  ( 
623),64):REM  ENABLE  GT 
lA  MODE  9.  THIS  IS  INT 
ERESTIN6  TO  DO  IN  GRAP 
HICS  0. 

POKE  562, USR(BAND, PEEK 
(562) , 254) : REM  TURN  OF 
F  KEYBOARD  DEBOUNCE  CI 
RCUIT. 


THE  AMAZING 

M)ICE  M  ASTER 


ENTER 

THE  FINAL 

FRONJIER 

OF 

MAN-TO-MACHINE 

COMMUNICATIONS 

There  is  nothing  etse  like 
it.  Voice  Master  gives 
bothi  speech  output 
and  voice  recognition  with  this  single  hardware  product!  Your  voice 
controls  prog  rams,  or  home  appliances,  robots,  ond  more  with  spoken 
comrmands.  Vertxal  response  back  gives  status,  verities,  of  requests  your 
reply!  Speech  output  and  recognition  potterns  are  recorded  in  with  your 
voice.  Or  use  the  voice  of  your  friend,  boss,  teacher,  mother,  even  the 
fo  mi  Sy  pet !  Progro  mming  is  simple  with  new  commands  added  to  BASIC 
A  music  bonus  program  lets  you  write  and  compose  musical  scores 
simply  by  humming  the  tune.  Unlimited  applications  for  fun,  educotion, 
and  commercial  use.  Design  your  own  progro  miS  for  profit.  Speech  and 
recognition  quality  unsurpassed  by  even  the  most  sophisticated 
machines.  Only  Covox  provides  this  high-tech  marvel  at  a  price  less  than 
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The  Covox  Voice  Master  comes  complete  with  all  hardware  and  software 
for  only  S89.95.  (Add  S4  shipping  and  hondling  for  US^  S6  Canada,  S10 
overseas, )  Avollable  for  Commodore  64/ 1 26,  Apple  II,  II+,  lie,  lie.  Atari  800, 
800XL  1 30  XE,  Specify  when  ordering,  Visa,  MasterCard  phone  orders 
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Can  or  mite  for  FREE  Voice  Master  fnfopak 
and  special  combination  pacicage  offers, 

COVOX  IncdeptC! 

675-D  Conger  Street   •   Eugene.  Oregon  97402   •   USA 
Area  Code  (503)  342-1271  •  Teex  7Q6Q17(AvAlormUD) 


Six  New  Operators  For  Atari 
BASIC 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTE I's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 


HD10    FOR    T- 
:  READ 
T 

FN20  X0R=15 
Ihz BDR 
+BOR: S 
HL+13 

Bfl  1010     DATA 

2,  69 
DATA 
215, 
DATA 
2,37 
DATA 
215, 
DATA 
2,5, 
DATA 
15,  1 
DATA 
133, 
DATA 
32,  2 
DATA 

3,  20 
DATA 
,  214 
DATA 
,  249 
DATA 
,  104 
DATA 
,  133 
DATA 
165, 


1536+128  TO  1775 
AiPOKE  T,A:NEXT 

36+128: BAND=XOR+ 
=16+BAND:BNDT-16 
HL=BN0T+12:SHR=S 


HL  1020 


AN  1030 


H!  1040 


NK  1050 


EF  1060 


HC  10  70 


BN  10S0 


EI  1090 


OC  1100 


KB  1110 


?1I  1  120 


nE  1 130 


FH  1  140 


32,  2 

214, 
212, 

133,  2 
32,  2 
214, 
212, 

133,  2 
32,  2 

214,  1 
212, 

33,  21 
104, 

213,  1 
255, 

14,6, 
214, 

2,20B 
96,  3 
70,  2 
102, 

,^6,  1 
216, 
104, 
104, 

,215, 
214, 

216,  7 


14,6, 165, 21 

133 

165, 213, 69, 

13,  96 

14,6, 165, 21 

133 

165, 213, 37, 

13,  96 

14,6,165,21 

33 

165, 213, 5, 2 

3,  96 
104, 73, 255, 

04,  73 

133, 212, 96, 
166 

6, 212,38, 21 
,249 

2, 214,6, 166 
13 

212, 202,208 
04, 133 
104, 133,217 
133, 213 
133, 212, 104 
104, 133 
165, 217, 72, 
2,96        @ 


Public  Domain  &  User  Supported  Software 


NEW  TOP  TEH  FOR  COMMODORE  64 

The  64  GOLD  Library  ^5. 80' DISK 


Z  105  ARTIST  SKETCHBOOK  drawmg  programs 
:  ]  105  GREAT  AMERICAN  NOVEUSTS  word 
processing 
107  PHONE  CONNECTIONS  communicadons 
:   i  1 08  SPACE  WARS  space  games 
i  1109  DUNGEONS  &  DRAGONS  text 

adven lures 
L  J  1  to  HOME  ORCHESTRA  instrument 
simulation 
Mil  JUKE  BOX  prerecorded  songs 
;  1112  EINSTEINS  FAVORITES  advanced  math 
M13  PONZOS  TUTOR  programming  from 
BASIC  lomactiine 
114  ELECTRONIC  SECRETARY  filehandling 
utilities 
HEW  TOP  TEN  FOR  iBM      SBMDiSK 
PC-StG  Mhoms6  Dealer 
J  005  PC-FILE  III.  V4  labets,  forms,  and  more 
1  078  PC-WRiTE  v?155  popular  and  powerful 
'  273  BEST  UTILITIES  print  spoolef,  file 
searcti,  more 
I  I  274  BEST  GAMES  packman,  breakout. 
wizard,  more 
I  293  ARCADE  GAMES  {color  graphics  required) 
;     405  DESKMATE  more  itian  a  sidekick 
;  457  GREATEST  ARCADE  the  best  of  tne 
best  games 
:  i  528  NEW  YORK  WORD  soptiisticated  word 

processing  1  of  2 
.  I  529  NEW  YORK  WORD  2  o1 2 
;  '  557  PINBALL  ALLEY  from  simple  to 

complex  pinball  games 
Add  S4  shipping  &  handhnq  per  order  CA  residents 
add  6  5%  sales  tax 

Amount  enclosed  S '   Check  i  i  VISA  i  ■  MasterCard 

Card  No 

Signature , Exp.  Date 

Phone  ( )„ . 

Name 

Address 

City. __ 


HEW  TOP  TEH  FOR  APPLE  SS.QQfDISK 

.  ;  037  FREEWRITER  wordprocesso:  (Apple 

II  t  needs  paddlesj 
Lj  038  BUSINESS  HOME  MANAGEMENT 

checkbook  calculator,  more 
;  1  D39  BEST  OF  BUSINESS  general  ledger. 

payrall.  much  more 
[  J  056  BANK  n  SYSTEM  check  balancer,  write 

&  print  checks 
[  ]  057  OMNI  FILE  data  base  with  mstmctions 
I  1  064  BEST  Of  EDUCATION  math  drills, 

spelling,  typmg,  etc 
i  ,  085  BASIC  MATH  DRILLS  tractions, 

multiple  ctioice,  work  problems 
I  J  tlBGAMES  fast  action  space  arcade  games 
'  f  195  RASSTIME,  a  potpoum  of  programs 
!  213  BEST  UTILITIES  diskcat.  krunch, 

diskcheck.  diskmap  etc 
NEW  TOP  TEN  FOR  MAC     S9M>Di$K 
005  CODE  CRACKING.  FEDIT  edit  file 

blocks  in  ASCII  or  hex 
I  ]  006  ResED  and  ReED  edit  menu  bars, 

icons  and  ID  numbers 
I  )  007  SWITCHER  Ddrl  multiple  Microsoft 

BASIC  tiles 
:  I  029  COMMUNICATIONS  Red  Ryder,  MacTep 
:  I  037  SLIDE  SHOW 
.  I  039  FONTS  Font  catalog 
n  045  DESK  ACCESSORIES  Minifinder.  timer 
I  1  062  GAMES  Dungeons  of  doom  baseball 
I  ]  067  GAMES  Billiards,  volleyball,  juggling 
:  :  086  BEST  OF  MAC  MacWorld  86 


.  State . 


.Zip. 
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Omega  Sort 


Written  entirely  in  machine  language, 
this  fast  sorting  routine  for  the  Com- 
modore 64  can  be  used  by  anyone  and 
does  not  take  away  any  space  from 
BASIC  memory. 


If  you  write  programs  that  handle 
data,  sooner  or  later  you  will  need  a 
routine  to  sort  items  into  alphabeti- 
cal order.  There  are  several  sorting 
methods  suitable  for  use  in  BASIC, 
including  the  bubble  sort,  shell  sort, 
and  quick  sort.  None  of  those  meth- 
ods, however,  is  very  efficient  for 
sorting  large  amounts  of  data. 

"Omega  Sort"  is  a  speedy  ma- 
chine language  routine  which  you 
can  use  in  any  BASIC  program,  even 
if  you  don't  know  a  thing  about 
machine  language.  Program  1  con- 
tains the  sort  routine.  Type  in  this 
program  udth  the  "MLX"  machine 
language  entry  program  found  else- 
where in  this  issue.  Here  are  the 
starting  and  ending  addresses  you'll 
need  when  typing  in  the  program; 


Starting  address: 
Ending  address: 


COOO 

C377 


Don't  forget  to  save  a  copy  of 

the  program  after  you  finish  typing 
it  in.  If  you  want  use  Program  2  to 
test  the  sorting  routine,  save  the 
data  from  Program  1  with  the  name 
OMEGASORT,  since  that's  the  name 
Program  2  looks  for. 

Omega  Sort  can  sort  1000  ran- 
domly ordered  strings  in  alphabeti- 
cal order  in  less  than  six  seconds. 
To  see  the  routine  at  work,  type  in 
and  save  Program  2,  the  BASIC 
demonstration  program.  If  you  are 
using  tape  instead  of  disk,  change 
the  8  to  a  1  in  line  10  of  Program  2. 


Jonathan  J.  Holuto 

When  you  run  Program  2,  it 
loads  the  machine  language  routine 
from  disk  or  tape  into  memory. 
Then  it  prompts  you  to  enter  the 
number  of  strings  you  wish  to  sort. 
To  create  1000  random  strings,  for 
instance,  type  1000  and  press  RE- 
TURN* The  program  prints  all  of 
the  strings  on  the  screen  in  their 
original  order,  then  it  sorts  them 
alphabehcally.  When  the  sorting  is 
done,  the  program  displays  the 
strings  in  the  new  order,  one 
screenful  at  a  time.  Press  any  key  to 
view  the  next  page  of  data,  or  press 
fl  to  exit  the  program. 

How  To  Use  It 

To  use  Omega  Sort,  your  program 

must  begin  by  loading  the  machine 
language  routine  into  memory.  The 
first  line  of  Program  2  demonstrates 
how  this  is  done. 

Some  machine  language  sort- 
ing routines  sort  only  one  dimen- 
sion of  a  multidimensional  array, 
which  is  not  always  convenient.  To 
demonstrate  why,  suppose  that  you 
have  an  address  file  program  that 
stores  a  list  of  names  and  addresses 
in  a  two-dimensional  array  as  shown 
here: 

N$(Ll)  =  name  1 
N$(l,2)  =  street  1 
N$(l,3)  =  city  1 
N$(  1,4)  estate  1 
N$(  1,5)  =  zip  code  1 
N$(  1,6)  =  phone  1 

Each  full  entry  contains  six 
separate  items:  the  name,  street, 
city,  state,  zip  code,  and  phone 
number.  In  a  real  program,  of 
course,  you  might  have  dozens  or 
even  hundreds  of  such  entries.  The 
name  for  entry  2  would  be  con- 
tained in  N$(2,l),  and  so  forth. 


If  you  sort  the  first  dimension  of 

this  array  (name),  then  the  names 
will  be  mismatched  with  the  other 
data  items.  The  name  for  entry 
number  1  might  be  matched  with 
the  street  for  entry  36,  and  so  on. 

Instead  of  sorting  the  strings 
themselves.  Omega  Sort  sorts  a  nu- 
meric index  array.  Each  element  of 
the  numeric  array  points  to  one 
data  set  in  the  string  array.  The 
advantage  of  this  method  is  that  all 
the  items  within  each  data  set  re- 
main in  their  original  order.  In  ad- 
dition to  great  speed,  this  gives  you 
more  flexibility  in  using  string  arrays. 

In  Program  2,  the  string  array 
is  named  A$,  and  the  index  array  is 
named  N%,  Note  that  the  index 
array  must  be  an  integer  array  (one 
whose  name  ends  with  %).  Any 
legal  Commodore  variable  names 
may  be  used,  provided  you  follow 
this  simple  rule. 

Colling  The 
Mochine  Longuoge 

Like  other  machine  language  rou- 
tines. Omega  Sort  is  called  with  a 
SYS  command.  In  addition  to  the 
command  itself,  which  includes  the 
starting  address  of  the  machine 
code,  you  must  supply  three  items 
of  information:  the  number  of  ele- 
ments to  sort,  the  name  of  the  string 
array,  and  the  name  of  the  index 
array.  Here  is  an  example: 

100  SYS  49152,N,N$(0),N%(0> 

In  this  statement,  the  variable 
N  indicates  the  number  of  elements 
to  be  sorted,  and  the  variable  NSfO) 
indicates  the  name  of  the  array  you 
wish  to  sort.  If  there  are  40  ele- 
ments in  the  N$  array,  for  instance. 
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you  would  set  N  to  40  before  exe- 
cuting line  100,  Or,  you  could  just 
replace  N  with  the  number  40.  The 
variable  N%  is  the  index  array. 

Once  the  sorting  is  complete, 
the  index  array  contains  the  new 
order.  To  gain  access  to  the  sorted 
data,  you  must  refer  to  elements  of 
the  string  array  through  the  index. 
Look  at  line  110  of  Program  2.  The 
expression  A$(A%(X))  causes 
PRINT  to  display  the  elements  of 
A$  in  the  order  contained  in  the 
A%  array.  Remember,  Omega  Sort 
rearranges  the  order  of  the  numeric 
index  array,  not  the  string  array 
itself.  Each  element  of  the  index 
array  points  to  one  element  of  the 
string  array. 

The  SYS  statement  for  a  multi- 
dimensional array  is  the  same,  ex- 
cept that  you  must  specify  which 
dimension  to  sort.  Here  is  an 
example: 

100  SYS  49152,N,N$(0,3),N%(0) 

For  the  address  array  men- 
tioned above,  the  preceding  state- 
ment would  sort  the  addresses 
according  to  the  array's  third 
dimension  (city).  This  statement 
would  sort  it  according  to  the  first 
dimension  (name): 
100  SYS  49l52,N,N$(0,l),No/o(0) 

This  statement  would  sort  the 
address  array  by  its  fifth  element 
(zip  code): 

100  SYS  49152,N,N$(0,5),N%(0) 

Here  is  an  example  line  that 
would  print  the  elements  of  the 
address  array  in  their  new  order: 

110  FOR  X  =  0  TO  N:PRINT  X,N$(N«/o{X) 
,5):NEXT 

You  can  use  this  routine  with- 
out knowing  how  it  works,  but,  for 
those  who  are  interested,  here  is  a 
brief  explanation.  Omega  Sort  first 
stores  important  zero  page  pointers 
in  the  cassette  buffer  so  it  can  use 
these  locations  for  its  own  pur- 
poses. Then  it  determines  where  in 
memory  the  arrays  reside.  In  the 
case  of  strings,  the  actual  text  is 
stored  from  the  top  of  BASIC  mem- 
ory in  a  downward  direction.  The 
array  storage  space  (located  just 
above  the  end  of  BASIC  program 
text)  contains  a  series  of  pointers  to 
the  strings  in  high  memory.  Omega 
Sort  checks  the  pointers  and  then 
changes  the  values  of  the  integer 
array  to  match  the  alphabetical  or- 


der  of  the  strings  themselves. 

When  1 

0220:20    E0    C0    A0    FF    C8    C4 

ED    AA 

finished, 

it  restores 

the  contents  of 

C228:B0    0F    C4    EA    B0    14    Bl 

EB    36 

the  zero  page  and  returns  to  BASIC. 

C230:D1    EE    90    0E    F0    EF    4C 
C2  38:C2    A5    EA    C5    ED    90    03 

5A   87 
40    46 

The  entire  process  works  so  quickly 

C240:5A   02    EE    72    C3    00    03 

EE    FE 

that  it  can  sort  a 

I  hundred 

strings  in  1 

C248:73    03    18   A5    OF    69    02 

85    04 

less  than 

a  i 

second 

C250:DF    A5    E0    69    00    85    E0 
C258:1D    C2    20    C3    C0    20    14 

4C    06 
01    CD 

C260:A0    FF    CS    C4    EA    B0    0F 

C4    98 

Program  1 

:  Omega  Sort 

C26B:ED    B0    14    Bl    EE    01    EB 

90    D5 

Please  refer  to  the  "MIX" 

article  elsewhere  in 

C270:0E    F0    EF    4C    9A    C2    A5 

ED    15 

this  issue  before  entering  the  following 

C278:C5    EA    90    03    4C    9A    C2 

AD    DD 

program 

0280:74    C3    D0   03    CE    75    C3 

CE    IE 

C288:74    C3    38   A5    El    E9    02 

85    DA 

C000:20 

8E 

C0 

20 

60 

C0 

20 

23    88 

C290:E1    A5    E2    E9    00    85    E2 

4C    93 

0008 :C0 

E6 

09 

D0 

02 

E6 

DA 

38    85 

C298:5A    C2    AD    73    C3    CD    75 

03    EC 

C0I0:A5 

DD 

E9 

02 

65 

DD 

A5 

DE    07 

C2A0:90    12    F0    03    4C    E2    C2 

AD    62 

C0I8:E9 

00 

85 

DE 

20 

48 

CI 

20    F2 

C2A8:72    C3    CD    74    03    90    05 

F0    B4 

C020:9A 

C0 

60 

A5 

DD 

85 

DF 

A5    EF 

C2B0:03    4C    E2    C2    A0    00    Bl 

DF    9B 

C028:DE 

85 

E0 

A9 

00 

85 

El 

85    90 

C2B8:4e    C8    Bl    DF   48    Bl    El 

91    27 

C030:E2 

A0 

01 

A5 

El 

91 

DF 

88    63 

C2C0:DF    88    Bl    El    91    DF    A0 

01    FA 

C038:A5 

E2 

91 

DF 

C5 

DA 

F0 

16    07 

C2C8:68    91    El    88    68    91    El 

EE    E7 

C040:18 

A5 

DF 

69 

02 

85 

DF 

A5    55 

C2D0:72    C3    00    03    EE    73    C3 

AO    45 

C048:E0 

69 

00 

85 

E0 

E6 

El 

D0    24 

C2D8:74   C3    D0    03    CE    75    C3 

CE    76 

C050;E0 

E6 

E2 

4C 

31 

00 

A5 

El    D6 

C2E0:74    03    AD    73    C3    CD    75 

03    82 

C058:C5 

D9 

F0 

03 

4C 

40 

C0 

60    C6 

C2ES:90    12    F0    03    4C    FF    C2 

AD    IF 

C060:20 

FD 

AE 

20 

9E 

AO 

20 

F7    20 

C2F0:72    03    CO    74    C3    90    05 

F0    FC 

C06B:B7 

A5 

14 

85 

09 

A5 

15 

85    IF 

C2F8:03    4C    FF   C2    4C    ID   C2 

AD    49 

C070:DA 

20 

FD 

AE 

20 

9E 

AD 

A5    8E 

C300:7D    C3    CD    75    C3    90    10 

F0    B9 

C078:47 

85 

DB 

A5 

48 

85 

DC 

20    07 

C308:03    40    43    C3   AD    7C   C3 

CO    70 

C080:FD 

AE 

20 

9E 

AD 

A5 

47 

85    82 

0310:74   03    90    03    40    43    03 

EE    EA 

C088:DD 

AS 

48 

85 

DE 

60 

A0 

19    96 

C318:7A   C3    D0    03    EE    7B   C3 

AE    B3 

C090:B9 

D8 

00 

99 

3C 

03 

88 

D0    8E 

0320 :7A    C3    AD    7C    C3    9D    80 

03    AC 

C098:F7 

60 

A0 

19 

B9 

3C 

03 

99    32 

C328:AD    7D    C3    90    AE    03    EE 

7A    15 

C0A0 : D8 

00 

88 

00 

F7 

60 

A5 

DD    17 

0330 :C3    00    03    EE    7B    C3    ES 

AD    87 

C0A8:85 

DF 

A5 

DE 

85 

E0 

A0 

02    7A 

0338:74   C3    9D    80    C3    AD    75 

03    2A 

C0B0:18 

A5 

DF 

6D 

72 

C3 

85 

DF    08 

C340:9D   AE    C3    AD    72    C3    8D 

70    CF 

C0B8:A5 

E0 

6D 

73 

C3 

85 

E0 

88    A8 

C348:C3    AD    73    C3    BO    7D    C3 

CD    7F 

C0C0:D0 

EE 

60 

A5 

00 

85 

El 

A5    3B 

C350:79    03    90    03    40    5A   C3 

40    67 

C0C8:DE 

85 

E2 

A0 

02 

18 

A5 

El    IF 

C35S:A9    01    00    08   AD    7C   03 

CD    74 

C0D0:eD 

74 

C3 

85 

El 

A5 

E2 

6D   CF 

C360:78    C3    90    F3    AD    7B    C3 

00    lA 

i     C0D8:75 

C3 

85 

E2 

88 

00 

EE 

60    AA 

0368:06   AD    7A   C3    D0    01    60 

4C    81 

C0E0:A0 

01 

Bl 

DF 

8D 

76 

C3 

88    7D 

C370:69    CI    EA    00    00    00    00 

00    7A 

C0E8:B1 

DF 

BD 

77 

C3 

A5 

DB 

85    56 

C0F0:E6 

A5 

OC 

85 

E7 

A0 

03 

18    23 

Program  2:  BASIC 
Demonstration 

C0F8:A5 
C100:E7 

E6 
6D 

60 
77 

76 
C3 

C3 
85 

85 
E7 

E6 
88 

A5    C3 
00    AB 

C108:EE 

A0 

02 

Bl 

E6 

99 

EA 

00    F9 

For  instructions  on  entering  this  program. 

0110:88 

10 

F8 

60 

A0 

01 

Bl 

El    4F 

please  refer  to  "COMPUTEI's  Guide  to  Typing 

Clia;8D 

76 

C3 

88 

Bl 

El 

80 

77    A8 

In  Programs"  elsewhere  in  this  issue, 

C120:C3 

A5 

DB 

85 

E8 

A5 

DC 

85    DF 

DO    10    IF    Z=0    THEN    2=1:L0AD"0ME 

C128:E9 

A0 

03 

18 

A5 

E8 

6D 

76    CC 

GAS0RT'\8,1 

C130:C3 

85 

E8 

AS 

E9 

60 

77 

C3    26 

0138:85 

E9 

88 

D0 

EE 

A0 

02 

Bl    C6 

(:K}    20    POKE    53281,1  SPRINT" 

{CLR] 

C140:E8 
C148:A2 

99 
01 

EA 
A9 

00 
01 

88 
9D 

10 
80 

F8 
C3 

60    D2 
A9    C2 

{ 2    DOWN } { BLK } " 
MH    30    DEFFNA(X)-INT(X*100+.5)/ 

C150:00 

9D 

AE 

C3 

E8 

A5 

D9 

90    7C 

100 

CI  58: 80 

C3 

A5 

DA 

9D 

AE 

C3 

A9    48 

MC    40    INPUT "HOW   MANY" ; N: DIMA? ( 

C160:02 

8D 

7A 

C3 

A9 

00 

8D 

7B    B7 

N) ,A%(N) 

C168:C3 

AE 

7A 

03 

BO 

80 

C3 

80    0A 

PA    50    A$="ABCDEFGHIJKLMNOPQRST 

0170:78 

C3 

BD 

AE 

C3 

80 

79 

C3    CE 

UVWXY2" 

C178:AD 

7A 

C3 

D0 

03 

CE 

7B 

C3    05 

QQ    60    FORX=0TON;A$(X)=MID$(A$, 

C180:CE 

7A 

C3 

AE 

7A 

C3 

BD 

80    4C 

RND(1)*18-H,RND{1)* 

5+3): 

C188:C3 

8D 

7C 

C3 

BD 

AE 

C3 

8D    DA 

PRINTX,A%(X) ,A$CX) 

;    C190:7D 

C3 

AD 

7A 

C3 

D0 

03 

CE    57 

RJ    70    NEXT 

C198:7B 

C3 

CE 

7A 

C3 

AD 

7C 

C3    DD 

FK    80    PRINT" {DOWN} {RVS} SORTING 

C1A0:8D 

72 

C3 

AD 

7D 

C3 

8D 

73    64 

":TI=TI 

C1A8:C3 

AD 

78 

C3 

SO 

74 

C3 

AD    38 

GD    90    SYS    49152,N,A$(0),A%{0) 

C1B0:79 

C3 

80 

75 

C3 

18 

AD 

7C    41 

EG    100    T2=TI:TM=(T2-T1)/60:PRI 

C1B8:C3 

60 

78 

C3 

80 

7E 

C3 

AD    60 

NT"{CLRj  tOO^fNj" 

C1C0:7D 

C3 

60 

79 

C3 

8D 

7F 

C3    50 

HF    110    FORX=0TON:PRINTX,A%(X), 

C1C8:6E 

7F 

03 

6E 

7E 

C3 

A5 

DD    EE 

A${A%(X)) 

C1D0:85 

E3 

A5 

DE 

85 

E4 

A0 

02    B5 

EG    120    IFPEEK(214)<21THEN170 

C1D8:18 

A5 

E3 

60 

7E 

C3 

85 

E3    17 

BR    130    PRINT" {DOWN} HIT    ANY    KEY 

C1E0:A5 

E4 

60 

7F 

C3 

85 

E4 

88    9C 

TO    CONTINUE: {2    SPACES) 

C1E8:D0 

EE 

A0 

00 

Bl 

E3 

8D 

77    54 

Fl    TO    END 

C1F0:C3 

C8 

Bl 

E3 

80 

76 

C3 

AS    70 

BQ    140    GETB$iIFB$=:""THEN140 

C1F8:DB 

85 

F0 

A5 

DC 

85 

Fl 

A0    C5 

CH    150    IFB$="lFl}"THENX=N 

-18 

C200:03 

18 

A5 

F0 

60 

76 

C3 

85    23 

GH    160    PRINT" (CLR} {down}" 

C208:F0 

A5 

Fl 

60 

77 

C3 

85 

Fl    40 

SQ    170    NEXT 

C210:88 

D0 

EE 

A0 

02 

Bl 

F0 

99    48 

FE    180    PRINT"  {2    D0™}{RVS 

}"FNA 

C218:ED 

00 

as 

10 

F8 

20 

A6 

C0    FC 

(TM)"{ OFF J  SECONDS" 
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Atari  Disk  Sector  Editor 


With  this  litilitxf  you  can  viezo  and 
change  the  contents  of  any  sector  on  a 
standard  floppy  disk.  The  program 
works  ivith  Atari  DOS  2,0  and  2.5  and 
runs  on  any  Atari  800XL,  65XE,  or 
130XE  computer.  (The  program  will 
not  work  on  the  older  400  or  800 
models.)  A  disk  drive  and  joystick  are 
required.  Recommended  for  interme- 
diate and  advanced  programmers. 


If  you   are   interested   in   learning 

about  Atari  disk  organization,  or  if 
you  have  ever  needed  to  recover  an 
accidentally  deleted  disk  file,  "Atari 
Disk  Sector  Editor"  can  be  a  very 
useful  tool.  It's  a  convenient,  menu- 
driven  utility  which  allows  you  to 
display  the  contents  of  any  disk 
sector  on  the  screen  and  modify 
any  byte  or  series  of  bytes  within 
the  sector.  (A  disk  editor  is  a  very 
powerful  tool — if  misused,  it  can 
easily  scramble  an  entire  disk,  de- 
stroying its  contents  forever.  To 
avoid  losing  important  data,  you 
should  practice  using  this  program 
on  an  unimportant  disk  until  you  are 
familiar  with  its  use.) 

Type  in  the  program  and  save  it 
to  disk.  Notice  line  5:  To  edit  an 
enhanced -density  DOS  2.5  disk, 
vou'll  need  to  change  the  DENSl- 
tY  =  0  in  that  line  to  DENSITY=1. 
The  program  uses  several  of  the  less 
common  screen  editor  sequences,  so 
be  sure  to  refer  to  the  "Guide  to 
Typing  In  Programs"  article  else- 
\vhere  in  this  issue  if  you  see  some- 
thing in  braces  ({  })  that  you  don't 
understand.  For  example,  the  {5 
DEL  LINE}  in  line  470  means  to 
type  the  delete-line  sequence,  ESC- 
SHIFT-DELETE,  five  times. 

When  you  run  Disk  Sector  Edi- 
tor, it  spends  a  few  moments  in- 


Morcelo  Adopon 

stalling  machine  language 
subroutines;  then  it  displays  the 
menu  screen.  This  screen  lists  all 
the  commands  available  in  the  pro- 
gram. The  menu  disappears  when 
you  display  a  disk  sector.  Use  the 
joystick  to  move  the  cursor  from 
one  byte  to  another  in  the  sector 
display.  You  can  go  back  to  the 
menu  at  any  time  by  pressing  the 
question  mark  key  (?). 

Command  List 

Here  is  a  complete  list  of  the  pro- 
gram's commands: 

R,  Reads  the  sector  indicated  by  the 
number  in  the  sector  indicator  and 
displays  its  contents  on  the  screen. 
W.  Writes  the  current  sector  back  to 
disk,  including  any  changes  you 
have  made  while  editing  the  sector. 

C.  Changes  to  a  new  sector. 

T,  Activates  text  input  mode.  Text 
mode  lets  you  change  the  contents 
of  the  byte  under  the  cursor  by 
typing  a  key.  (Don't  type  too  quick- 
ly— input  is  rather  slow  in  this 
mode.)  Exit  this  mode  by  pressing 
CTRL-CLR. 

H,  Activates  hexadecimal  input 
mode.  As  with  text  mode,  this 
mode  lets  you  change  the  contents 
of  a  byte.  However,  the  new  value 
is  typed  as  a  hexadecimal  value.  For 
instance,  typing  the  characters  AA 
changes  the  contents  of  the  byte 
under  the  cursor  to  hexadecimal 
$AA.  Exit  hexadecimal  mode  by 
typing  22. 

D.  Activates  decimal  input  mode. 
This  mode  works  the  same  as  text 
and  hexadecimal  mode,  except  that 
entries  are  in  decimal.  Exit  by 
typing  -1. 

L.  Displays  sector  link  information. 
This  function  show^s  the  data  con- 


tained in  the  last  three  bytes  of  the 

current  sector.  These  bytes  show 
the  number  of  active  bytes  in  the 
sector,  the  file  number,  and  the  next 
sector  in  the  chain  of  linked  sectors. 
Note  that  if  the  last  byte  is  zero,  you 
have  reached  the  final  sector  in  the 
chain  (the  end  of  the  file). 
S.  Shows  the  decimal  value  of  the 
byte  under  the  cursor. 
A.  Shows  the  character  in  ATASCII 
and  internal  format. 
N.  The  Next  command  automati- 
cally reads  the  next  sector  in  the  file 
chain  and  increments  the  sector  in- 
dicator to  that  sector  number. 
+  .  Pressing  the  plus  key  (  +  )  causes 
the  program  to  read  the  next  sector 
in  numerical  order.  If  you  execute 
this  command  from  sector  720 
(standard  density)  or  1010  (en- 
hanced density),  the  program  pro- 
ceeds to  sector  1. 
— .  Pressing  the  minus  key  (  — ) 
causes  the  program  to  read  the  pre- 
vious sector  in  numerical  order.  If 
you  execute  this  command  from 
sector  1,  the  program  backs  up  to 
sector  720  (standard  density)  or 
1010  (enhanced  density). 
?.  The  question  mark  key  (?)  returns 
you  to  the  main  menu,  which  lists 
all  the  program's  commands. 

Among  other  things,  this  pro- 
gram allows  you  to  recover  a  file 
that  was  deleted  accidentally. 
Before  you  try  to  recover  an  actual 
file,  it's  a  good  idea  to  practice  this 
process  with  a  dummy  file  on  an 
unimportant  disk.  For  instance,  cre- 
ate a  dummy  file  by  saving  a  one- 
line  BASIC  program  to  disk;  then 
delete  the  file  to  set  up  the  condi- 
tions for  recovering  it.  After  you 
know  that  you  can  successfully  re- 
cover the  dummy  file,  you  can  pro- 
ceed to  restore  important  files. 
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Directory  Records 

To  begin  the  recovery  process,  read 
the  directory  sectors  (361-368)  to 
find  out  whether  the  filename  of 
the  deleted  file  still  exists.  It's 
important  to  understand  the  format 
of  file  records  within  the  disk  direc- 
tory. Each  record  contains  16  bytes, 
whose  significance  is  explained  as 
follows. 

Byte  0:  Status 

The  status  byte  records  the  file's 
status,  which  is  one  of  four  possible 
values: 

$40  =  normal 
$43  =  unclosed 
$80  =  deleted 
$20  =  locked 

The  status  byte  for  a  deleted 
file  appears  on  the  screen  as  the 
heart  character. 
Bytes  1-2:  Length 

These  bytes  show  the  length  of  the 
file  in  low-byte/high-byte  format. 
To  convert  from  low-byte/high- 
byte  format  to  a  decimal  number, 
use  the  BASIC  statement  PRINT 
LO  +  256  *  HI,  where  LO  equals 
the  low-byte  value  and  HI  equals 
the  high  byte. 
Bytes  3-4:  Starting  sector 

This  pair  of  bytes  indicates  the  sec- 
tor where  the  file  begins.  This  value 
is  also  in  low-byte/high -byte  format. 
Bytes  5-12:  Filename 

The  first  part  of  the  filename  (the 
eight  characters  before  the  period) 
is  contained  in  these  bytes. 
Bytes  13-15:  Extension 

These  three  bytes  contain  the  three- 
character  extension  which  appears 
after  the  period  in  a  filename. 

When  you  view  a  file  record 
with  this  program,  each  record  takes 
up  two  lines  of  the  display.  Each 
record  starts  on  a  line  that  ends  with 
a  zero  (10, 20,  and  so  on).  To  recover 
a  deleted  file,  you  need  only  change 
that  file's  status  byte  from  $80, 
meaning  that  it's  deleted,  to  $40,  the 
normal  file  type.  Once  this  is  done, 
write  the  sector  back  to  disk. 

File  Recovery 

The  best  time  to  recover  a  file  is 
immediately  after  it  has  been  de- 
leted, before  any  other  files  have 
been  created  or  updated.  That  way, 
you  can  be  reasonably  certain  that 
no  part  of  the  deleted  file  has  been 


overwritten  by  another  file.  After 
recovering  a  file,  you  should  exit 
the  program  and  attempt  to  read 
the  file  normally,  to  make  sure  all  of 
it  is  present.  (Don't  write  to  that  file 
or  any  other  file  on  the  disk,  how- 
ever, or  you  may  destroy  your 
chances  of  recovering  it.) 

With  the  file  intact,  only  one 
job  remains.  You  have  changed  the 
file's  status  back  to  normal,  but  you 
must  still  update  the  disk's  VTOC 
(Volume  Table  Of  Contents)  so  that 
DOS  knows  the  file's  sectors  are  in 
use  again.  Copy  the  recovered  file  to 
a  second  disk;  then  insert  the  origi- 
nal disk  and  delete  the  file  again 
from  the  DOS  menu.  Now  copy  the 
file  back  from  the  second  disk  to  the 
original.  DOS  updates  the  VTOC 
and  the  file  is  restored  completely. 

Recovery  is  much  more  diffi- 
cult in  cases  w^here  the  deleted  file 
has  no  entry  in  the  directory  sectors 
or  where  part  of  it  is  missing  after 
you've  restored  it  to  normal  status. 
Since  the  directory  holds  no  clue  as 
to  the  file's  length  or  location,  you 
have  to  look  through  every  sector 
on  the  disk  to  find  the  beginning  of 
the  file,  then  determine  its  length 
manually  by  chaining  through  all 
its  sectors  until  you  reach  the  final 
sector.  Once  that  has  been  done, 
you  have  to  construct  a  new  file 
record  in  the  directory  and  update 
the  VTOC  as  well.  It's  possible  to 
recover  a  file  in  this  way,  but  only  if 
none  of  it  has  been  overwTitten  by 
other  files.  And  this  method  de- 
pends on  your  ability  to  recognize 
the  file's  first  sector  amongst  all  the 
other  sectors  on  the  disk.  Unless  the 
file  is  absolutely  irreplaceable,  you 
may  find  it  more  time-efficient  to 
recreate  the  file  by  using  the  pro- 
gram that  created  it  in  the  first 
place. 

Atari  Disk  Sector  Editor 

For  Instructions  on  entering  this  program, 
piease  refer  to  "COMPUTE  !'s  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 


F£  5  DENSITY 

IF  USI 

CED  DEN 

HA  10  IF  PEE 
N  GOSU 

FF  20  P2  =  PEE 
6, P2: 6 
EK (88) 
RN=P2« 
+256*P 

AF  30  POKE  7 

CN  40  DIH  R* 
D$  (  1)  : 


=  0:  RE 

NG  DO 
SITY 
K  (  153 
B  1  15 
K  (  106 
RAPHI 
:  SC2  = 
256:  D 
EEK  <5 
52,  1  : 
<  I  J  ,B 
DRIVE 


M  DENSITY=1 
S  2.S  ENHAN 

6)<>173  THE 
0 

)-5:PDKE  10 
CS  0;SC1=PE 
PEEK  C89)  : SC 
L=PEEK (560) 
61  ) 

5ECT0R=1 
UF*(128) ,CM 
1:BUF«=CHR 


JA  50 

ID  60 
FI  62 

FN  64 

HP  66 

HD  68 

FC  70 

3F  80 


FH  90 
PD  10 

hb  1 1 

HE  12 

AJ  13 


* (0) : BUF$ (128) =BUF*: BU 
F*  (2) =BUF«; ADDR  =  ADR  CBU 
F*) 

DIH  HX*( 16) , HXN$ (3) , HX 
Nl*  (2)  :HX*="01 23456789 
ABCD  E  F " 

DIM  MLIS (26) , ML2$ C 19) : 
RESTORE  62 

FOR  1=1  TO  26: READ  BYT 
: MLl* ( I) =CHR* (BYT) : NEX 
T  I 

FOR  1=1  TO  19:READ  BYT 
:ML2* t I)=CHR*(BYT) : NEX 
T  I 

DATA  104, 104, 133, 1 , 104 
, 133,0, 162,0, 160,0, 169 
,0, 145,0,200,208,249,2 
30, 1,232,224,4,208,242 
,96 

DATA  72,138,72,162,0,1 
6  9, 0, 157, 192, 158, 232, 2 
24,40,208,246, 104, 170, 
104,64 

A  =  USR  CADR(ML1*)  , SCRN)  : 
A=ADRCML2*) :POKE  A+9,I 
NT ( (SCRN+96  0) /256) : POK 
E  A  +  8,  SCRN-f-960-PEEK  (  A^- 
9) t256 

POKE  DL+10, 130: POKE  51 
3,  INT CA/256)  : POKE  512, 
A-PEEK(513> «256:P0KE  5 
4286, 192 

?  "R  -  READ  SECTOR  " 
0  ?  "W  -  WRITE  SECTOR" 
0  ?  "C  -  CHANGE  SECTOR 

READ/WRITE  NUM" 

?  "T  -  ENTER  TEXT  DAT 

A" 

?  "H  -  ENTER  HEX  DATA 


BA  140 

£J  150 

EH  160 

Jfl  170 

KA  180 

JK  190 

NC  200 

6L  210 

Cfl  220 

m  230 
m  240 

IE  250 
FD  260 

LS  270 

KE  280 
DH  2  90 


BA  300 
JA  3  10 


BH  320 

6C  330 

DK  340 


7     "D    -     ENTER     DECIMAL 

DATA" 

?  "L  -  PRINT  SECTOR  L 

INK  INFO" 

?  "S  -  SHOW  DECIMAL  V 

ALUE" 

?  "A  -  CHARACTER  REPR 

ESENTATIONS" 

?  "N  -    NEXT  SECTOR  IN 

CHAIN" 
?  "+  -  DISPLAY  NEXT  S 
ECTOR" 

?  "-  -  DISPLAY  PREVIO 
US  SECTOR" 
?  "?  -  HELP  SCREEN" 
?  "  USE  JOYSTICK  TO  M 
OVE  CURSOR  •• 
7  i.  PRESS  A  KEY  TO  CO 
NTINUE  " 

OPEN  #1 , 4, 0, "K: " 
GET  #1,B:IF  FLOl  THE 
N  30SUB  600 
FL-1:B0SUB  650: POKE  7 
54,1:P0KE  694,0:POKE 
702, 64 

IF  PEEK<754)<>1  THEN 
450 

D=PEEK f632) : IF  D=15  T 
HEN  270 

POKE  LQC,  PEEK  (LOO  -12 
a:POKE  LOC+1 , PEEK (LOC 
+  1  )  -128 

POSITION  28,Y+1:?  "  " 
POKE  TEMP, PEEK (TEMP) - 
128: POKE  TEMP+1 , PEEK ( 
TEMP+1 ) -128 
POSITION  6+X#3,0:?  X: 
POSITION  29+X,0:?  X 
IF  D=10  OR  D=i4  OR  D= 
6  THEN  Y=Y-1 
IF  D=9  OR  D=13  OR  D=5 

THEN  Y=Y+1 
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BZ  350 
AH  360 

OK  3  70 

DJ  380 
BN  39  0 

BD  400 
CP  410 


BE  420 

£P  430 

eK  440 
CC  450 

IE  460 

IK  470 

JF  480 


DC  4  90 
CC  500 
CL  510 
GS  520 
D£  5  30 
BI  540 
BE  5  50 

m  56  0 

DA  570 
M  58  0 
HA  590 
NP  600 

HO  610 


CM  620 

HPI  630 

LJ  640 

PD  650 

KO  660 
IK  670 

DN  680 

NO  690 

ICD  6  9  1 


IF  D=10  OR  D=l 1  DR  D= 

9  THEN  X=X-1 

IF  D=6  OR  D=7  OR  D=5 

THEN  X-X-*-l 

IF  X>7  THEN  X=0 

IF  X<0  THEN  X=7 

IF  Y>15  THEN  Y=0 

IF  Y<0  THEN  Y=15 

LDC=SCRN+45+40*Y+X*3: 

POKE  LOC, PEEK (LOG) +12 

8:P0KE  LOC+1 , PEEK CLac 

+1 ) +128: POSITION  28, Y 

+  1 :  ?  "  CESo  <:right>  " 

TEI1P  =  SCRN  +  42  +  40»Y:  POK 

E  TEMP, PEEK CTEMP} +128 

IPOKE  TEMP+l , PEEK (TEM 

P+1 ) +128 

POSITION  6+X*3,0:?  CH 

R* ( 176+X) : POSITION  29 

+X, 0: ?  CHR* ( 176+X) 

GOTO  270 

GET  #1, B:R$=CHR*(B) :P 

OKE  754,  I 

IF  R*="?"  THEN  eOSUB 

660: GOTO  250 

IF  R$="R"  THEN  CMD*=" 

R":60SUB  1270:BDSUB  6 

00: POSITION  0, 18: ?  " 

C5  DEL  LINE:>":G0T0  27 

0 

IF  R*="W"  THEN  CMD*=" 

W";GOSUB  1270:GOSUB  6 

00: POSITION  0, 18: ?  " 

C5  DEL  LINE>'*:GOTa  27 


IF  R$=' 
IF  R»=" 
IF  R$=' 
IF  R*=' 
IF  R*=' 
IF  R*=" 
IF  Rt=" 
IF  R$=" 
IF  RS=" 
IF  R$=" 
GOTO  27 
GOSUB  6 
=SCRN+4 
POSITIO 

E   1 

7  \T12Z 
36, ADDR 
?  :  ?  "  S 
WRITTEN 


THE 
THE 
THE 
THE 
THE 
THE 
THE 
THE 
THE 
THE 


S 

A 

N 

0 

50: X=0 

5 

N  0,  0: 

2   3 

4567" : 

> 

ECTOR 

/READ: 


N  670 

N  880 

N  840 

1000 

N  740 

N  690 

N  710 

N  730 

N  770 

N  820 

Y=0:LOC 

?  "LINE 
4  5  6 
A  =  USR  C 15 

#  TO  BE 

"  ; SECTOR 


TEMP 

PEEK 
EMP  + 
3 

POKE 
8:  PQ 
+  1  )  + 
:? 
URN 
POKE 
,P2: 
,P2: 
POKE 
+  5,5 
KE  8 
POSI 
i5  D 
MBER 
SEC 
7:  ? 
POSI 
<DEL 
SECT 
CTOR 
=  1 
IF  D 


=L0C"3:P0KE  TEMP, 
CTEMP)+128: POKE  T 
1 , PEEK (TEMP+l ) +12 


DL+4,0:POKE  DL+5 
POKE  BS,0:POKE  89 

RETURN 


DL+4, SCI 
C2:P0KE  8 
9, SC2: RET 
TION  0, IS 
EL  LINE>S 
" ; : TRAP  6 
TORiPOSIT 
SECTOR;  " 
TION  0,  IS 

LINE>  ":G 
OR=SECTOR 
>1010  THE 


:POKE  DL 
8, SCI : PO 
URN 
:  ?  " 

ECTOR  NU 
70: INPUT 
ION  30,  1 


OTO  270 
+1 : IF  SE 

N  SECTOR 


ENSITY=0  AND  SECT 


DR>720  THEN  SECTOR-1 
00  700  R*=5"R":GDTD  470 
NH710  SECTOR  =  SECTOR-1  :  IF  SE 
CT0R<1  THEN  SECTOR=10 
10 
AI711  IF  DENSITY  =  0  AND  SECT 
OR>720  THEN  SECTOR-72 
0 
PA  720  R$="R":GaTO  470 
AF  7  30  POSITION  0,18:7  " 

iS  DEL  LINE^THE  DECIM 
AL  VALUE  OF  BYTE  tt";Y 
*B+X:?  "IS  EQUAL  TO  " 
; PEEK ( ADDR+S*Y+X) :GOT 
0  280 
AK  7  40  FN=INT  (PEEK  (ADDR+125J 
/4)  :NSEC  =  PEEK  (ADDR+12 
6) +25  6* (PEEK(ADDR+125 
) -FN*4) 
EJ750  POSITION  0,18:?  " 

CS  DEL  LINE>DOS  FILE 
NUMBER  ";FN:?  "NEXT  S 
ECTOR  IN  THIS  FILE  IS 
"  ; NSEC: AC  =  PEEK (ADDR  + 
127) 
FJ  760  ?  "THERE  ARE  "jAC;"  A 
CTIVE  BYTES":?  "IN  TH 
IS  SECTOR"; GOTO  270 
OC770  POSITION  0,18:?  " 
CS  DEL  LINE>ASCII 
C10  SPACES > INTERNAL" : 
?  "GRAPHIC  ASC 
<4  SPACES>GRAPH1C  INT 


EO  780 


AX  79  0 


V^PEEK ( Y»S+ 
V=155  THEN 
POSITION  10 
(27) ; CHR* ( V 
N+750, V 
£H  800  V  =  V-INT(V/6 
OSITION  15, 
27)  ; CHR4  (V) 
+790, V+64- ( 
128 

GOTO  270 
FN=INT  (PEEK 
/4) : NSEC=PE 
6) +256* (PEE 
) -FN«4) : IF 
N  GOTO  260 
SECTDR=NSEC 
R*="R" : GOTO 

POSITION  0, 
<:5  DEL  LINE 
ECIMAL  NUMB 
TURN":?  "TY 
ND  DECIMAL 


X+ADDR) : IF 

V  =  27 
, 18: ?  CHR* 
) : POKE  SCR 

4) *64+64: P 
19:?  CHR*( 
:POKE  SCRN 
V  +  64>128>  * 


6L  810 
61  820 


GH  830 


LH  8  40 


(ADDR+125) 
EK(ADDR+12 
K  (ADDR  +  125 

NSEC=0  THE 

: CMD$="R" : 
470 

IS:?  '" 
>TYPE  IN  D 
ER  THEN  RE 
PE  -1  TO  E 
ENTRY  MODE 


■OSITION 
DEL  LINE 

:place  "; 
l  +  X>  i  "  :  " 
IPUT  V:TR 
F  V=:-l  T 
0,18:?  " 
:GOTO  26 
OSUB  106 
OSITION 
5  DEL  LI 
XADECIMA 
RETURN" 
HH  890  ?  "TYPE  I 
lEX  ENTRY 
'  =  PEEK<AD 
V! GOSUB 
0, 20: ? 
X  NUMBER 
HXN*;  '• 
N4 

RAP  900. 
N1*C3-LE 
N*: HXNS- 


EP  850 


FL  860 


PG870 
JL  880 


SO  900 


B6  910 


2,20:?  " 

> NUMBER  TD  R 

PEEK (ADDR+y» 

; : TRAP  850; I 

AP  40000 

HEN  POSITION 

<5  DEL  LINEJ 

0 

0:GOTO  850 

0,18:?  " 

NE>TYPE  IN  H 

L  NUMBERS  AN 

5 

N  ZZ  TO  END 

MODE" 

DR+Y*8+X) : HX 

1260:POSITIO 

"CDEL  LINE>H 

TO  REPLACE 

: ?" :  INPUT  H 

HXN1*="00":H 
N(HXN$) ,2)=H 
HXN1*:TRAP  4 


AD  9  60 

HZ  970 

ftf; 

980 

K 

990 

HB 

1000 

IC 

1010 

DfT 

1020 

0000 

KO920  IF  HXN*="ZZ"  THEN  POS 
ITION  0,18:?  " 
C5  DEL  LINE>":GOTO  26 
0 
DD930  H  =  A5C  (HXN*  C  1  ,  1  )  )  :  IF  ( 
H<4S  OR  H>57)  AND   (H< 
65  OR  H>70)  THEN  ?  " 
<:BELL>  "  :  GOTO  900 
EK  9  40  L  =  ASC  (HXN*  (2,  2)  )  :  IF   ( 
L<4S  OR  L>57)   AND   (L< 
65  OR  L>70)   THEN  ?  " 
CBELL>":GDTO  900 
?£  950  IF  H<65  THEN  HsH-48:G 
OTO  970 
H=H^55 

IF  L<65  THEN  L=L-48:G 
OTO  990 
L=L-55 

V=H<16+L: GOSUB  1060: G 
OTO  900 
POSITION  0, 18; ?  " 
<5  DEL  LINE>ASCII  CH 
ARACTER  ENTRY  MODE" 
POSITION  2, 19;?  "PRE 
SS  amf-HMT  TO  END  T 
EXT  ENTRY  MODE" 
V=PEEK(ADDR+Y«8+X) :P 
OSITION  0,20:?  " 
CDEL  L1NE>CHARACTER 
TO  REPLACE  " ; : IF  V=l 
55  THEN  ?  "Lil^iiJjll":G 
OTO  1020 
rS  1030  ?  CHR*  (27)  ;CHR*  (V) 
LC  1040  GET  ttl,V:IF  V=15S  TH 
EN  POSITION  0, IS: ?  " 
<5  DEL  LINE>";GOTO  2 
60 
£0  1050  GOSUB  1060:GQTO  1020 
^5  1060  POSITION  X*3  +  5,Y+1:H 
X=V:GOSUB  1260:?  HXN 
*: POSITION  X+2  9, Y+1 : 
?  CHR*  (27)  ;  :  IF  V/=155 
THEN  ?  CHR* (27) : GOT 
0  1080 
l^   1070  ?  CHR*  (V) 
£11080  POSITION  6  +  X*3,0:?  X 
:POSITION  29+X,0;?  X 
^?  1090  POKE  ADDR  +  Y*8  +  X,V 
rHll00  X  =  X  +  1:IF  X>7  THEN  X  = 
0: POSITION  28, Y+1: ? 
"  " ; : Y=Y+1 ; IF  Y>15  T 
HEN  Y=0 
.=  1110  POKE  TEMP,  PEEK  (TEMP) 
-128:P0KE  TEMP+l, PEE 
K  (TEMP+l  )  -128 
EC  1120  TEMP  =  SCRN  +  42  +  40*Y:  PO 
KE  TEMP, PEEK (TEMP) +1 
28;P0KE  TEMP+l, PEEK( 
TEMP+l ) +128 
FP1130  LOC  =  SCRN  +  45  +  40*Y  +  X*3 
:POKE  LOC,  PEEK  (LOO  + 
12S;PaKE  L0C+1,PEEK( 
LOC+1 ) +128; POSI TION 
28, Y+1:?  "CESO 
<RIGHT> " 
;jil40  POSITION  6  +  X*3,0:?  C 
HR*  (176  +  X)  :POSITION 
29+X,0:?  CHR*(176+X) 
; RETURN 
Dnil50  RESTORE  1160:FOR  A  =  0 
TO  207:READ  B:POKE 
A+1536, B: NEXT  A:RETU 
RN 
AJ1160  DATA  173,6,228,141,1 
89, 6, 238, 189, 6, 173, 7 
,228, 141, 190,6, 169,0 
, 141 , 253,6, 141 ,254 
DB1170  DATA  6,141,255,6,165 
,  10,  141 , 208, 6,  165,  1  1 
,  141 , 209, 6,  104,  104,  1 
33, 1 1 , 104, 133, 10, 174 
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66  1350 

EF  1360 

0£  1370 

&6  1380 

LK  1390 

C£  1400 

OH  1410 

PH  1420 

P6  1430 

m  1440 


25 


POKE  771 , 12S 

IF  CMD$="R"  THEN  PI 

E  771 , 64 

POKE  773, INT ( ADDR/: 

6) 

POKE  772, ADDR-256*PE 

EK  <773) 

POKE  774,3 

°nKE  7^=  '^ 


OAi500  POKE  542B6,192:RETUR 
N  © 


Paul  W,  Corlson 


Here's  a  program  that  really  shows  off 
the  graphics  capabilities  of  the  PC 
and  PCjr,  *'Mirrors"  produces  an 
ever-changing,  lightning-fast  kalei- 
doscopic display  in  medium  resolu- 
tion. The  program  requires  a  color 
monitor  and,  for  the  IBM  PC,  a  color/ 
graphics  adapter  card. 


This  graphics  program  creates  en- 
trancing, constantly  changing  de- 
signs on  the  medium-resolution 
screen.  Type  in  the  program  and 
save  a  copy,  then  place  a  disk  in  the 
drive  and  run  it.  This  BASIC  pro- 
gram creates  an  executable  ma- 
chine language  program  named 
MIRR0RS.COM.  (Once  you  have 
created  MIRRORS.COM,  you 
won't  need  the  BASIC  program 
again.)  To  use  the  program,  type 
SYSTEM  and  press  Enter  to  exit 
BASIC  and  enter  DOS.  At  a  DOS 
prompt,  type  MIRRORS  and  press 
Enter.  The  program  clears  the 
screen  and  begins  to  create  its  dis- 
play. The  screen  is  divided  into  four 
quadrants.  Inside  each  quadrant^  a 
graceful  series  of  lines  moves  in  a 
changing  pattern.  Since  each  quad- 
rant mirrors  the  others,  the  result  is 
pleasingly  symmetrical.  Press  the  Q 
key  to  terminate  the  program  and 
return  to  DOS. 

How  It  Works 

The  program  begins  by  plotting  20 
lines  in  each  quadrant.  Then,  in 


each  quadrant,  the  oldest  line  is 
erased  and  a  new  line  is  plotted. 
The  direction  in  which  the  lines 
move  is  controlled  by  an  x  and  a  i/ 
increment  for  each  end  of  the  lines. 
When  the  program  detects  that  the 
end  of  a  line  is  about  to  leave  the 
top  or  the  bottom  of  its  quadrant,  it 
randomly  picks  a  new  y  increment 
for  that  end  of  the  lines.  The  new 
increment  will  be  opposite  in  sign 
to  the  old  one,  to  send  the  lines 
back  toward  the  center  of  the  quad- 
rant. The  X  increment  changes  in 
the  same  manner  when  the  end  of  a 
line  is  about  to  go  beyond  the  side 
of  a  quadrant. 

The  program  achieves  its 
speed  by  avoiding  BIOS  routines 
and  writing  directly  to  video  RAM. 
Since  almost  every  operation  in  the 
program  has  to  be  performed  four 
times  (once  for  each  quadrant),  the 
macro  capabilities  of  the  IBM  Macro 
Assembler  were  used  to  generate 
in-hne  code  rather  than  using  sub- 
routine calls.  This  increased  the  size 
of  the  program,  but  resulted  in  a 
dramatic  speed  increase. 


MIRRORS.COM  Filemaker 

For  instructions  on  entering  this  program, 
please  refer  to  '^COMPUTEI's  Guide  to  Typing 
\n  Progfams"  elsewhere  irt  this  issue. 

E!  10  T=0:OPEN  "MIRRORS. COM"  FOR 

OUTPUT  AS  1 
LJ  20  FOR  J=l  TO  4B:READ  A*:N^VA 

L("&H"+A*) 
LN  30  T=T+N:PRINT#1,CHR*(N) ;:NEX 
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IN  40  FOR  J=l  TO. 100:PRINT#1,CHR 

*<0) ;CHR*<1) ; :NEXT 
BP  50  FOR  J=l  TO  1121:  READ  A$:N= 

FD  60  T-T+N:PRINTttl,CHR$(N) ; :NEX 

T: CLOSE  1 
BA  70  IF  1-89209!  THEN  PRINT"MIR 
R0RS.COM  SUCCESSFULLY  CREA 
TED \ " : END 
LP  80  PRINT  CHRS  (7)  ;  '■*****  ERROR 

IN  DATA  STATEMENTS  *»*t»" 
:END 
HN  90  DATA  E9,  10,  01 ,  3F,  00,  3F,  40, 

3F,B0,3F 
JB  100  DATA  C0,CF,00,CF, 10,CF,20 

,CF,30,F3 
01  110  DATA  00,F3,04,F3,08,F3,0C 

,FC,00,FC 
NL  120  DATA  01 ,  FC,  02,  FC,  03,  00,  00 

,00,00,00 
6B  130  DATA  00,00,00,00,00,00,00 

,00,00,02 
GB  140  DATA  00,02,00,02,00,02,00 

,03,00,03 
AE  150  DATA  00,  IE,  00,  0F,  00,  00,  00 

,00,00,00 
JJ  160  DATA  00,00,00,00,00,88,00 

,B8,8E,C0 
JI  170  DATA  FB,Ba,05,00,CD, 10,B8 

,00,06,33 
OJ  180  DATA  C9,eA,4F, 16,32, FF, CD 

, 10,C7,06 
IH  190  DATA  1 1,02,  01,  00,  C7,  06,  09 

,02,00,00 
HA  200  DATA  C7,  06,  00,02,  00,  00,  C7 

,06,00,02 
KD  210  DATA  3F,  01 ,  C7,  06,  0F,  02,  00 

,00,E8,0F 
CF  220  DATA  03,  C7,  06,  09,  02,  3F,  01 

,C7,06,0B 
P6  230  DATA  02,  00,  00,  C7,  06,  0D,  02 

,3F,01,C7 
AN  240  DATA  06,  0F,  02,  C7,  00,  EG,  F4 

,02,C7,06 
PH  250  DATA  09,  02,  3F,  01 ,  C7,  06,  0B 

,02,C7,00 
OE  260  DATA  C7,  06,  0D,  02,  00,  00,  C7 

,06,0F,02 
fiE  270  DATA  C7, 00, ES, D9, 02, C7, 06 

,09,02,00 
ON  280  DATA  00,  C7,  06,  0B,  02,  C7,  00 

,C7,06,0D 
6B  290  DATA  02,00,  00,  C7,  06,  0F,02 

,00,00,E8 
a  300  DATA  BE, 02, BE, 01, 00, C7, 06 

,09,02,A0 
B6  310  DATA  00,  C7,  06,  0D,  02,  3E,  01 

,B9,36,0B 
PO  320  DATA  02,89,36,0F,02,E8,A4 

,02,46,03 
LD  330  DATA  FE,  64,  75,  EF,  C7,  06,  09 

,02,01,00 
n  340  DATA  C7,06,0D,02,9F,00,89 

,36,0B,02 
m   350  DATA  e9,36,0F,02,ES,87,02 

,46,81,FE 
LI  360  DATA  C7,  00,  75,  EE,  BF,  02,  00 

, BE, 00, 00 
CM  370  DATA  8B,  85,  31  ,  01 ,  8B,  9D,  95 

,01, A3, 09 
KO  380  DATA  02,  89,  IE,  00,  02,  8B,  85 

,63,01,88 
m   390  DATA  90,07,01, A3, 08,02,89 

, 1E,0F,02 
NK  400  DATA  C7,  06,  1 1 ,  02,  00,  00,  E8 

,53,02,A1 
6C  410  DATA  01,02,88,  IE,  05, 02,  A3 

,09,02,89 
GL  420  DATA  IE,  0D,  02,  Al»  03,02,  SB 

, IE, 07,02 
A6  430  DATA  A3, 08,  02,  89,  IE,  0F,  02 


,C7,06, 11 
KE  440  DATA  02,  01 ,  00,  E8,  2E,02,  B8 

,3F,01,8B 
CK  450  DATA  D8,  2B,  85,  95,  01 ,  2B,  90 

,31, 01, A3 
JA  460  DATA  09,  02,  89,  IE,  0D,  02,  8B 

,85,C7,01 
JA  470  DATA  SB,  9D,  63,  01 ,  A3,0B,02 

,89, 1E,0F 
ID  480  DATA  02,  C7,  06,  1 1 ,  02,  01 ,  00 

,E8,02,02 
Krt  490  DATA  B8, 3F, 01 , SB, D8, 2B, 06 

,05,02,2B 
6C  500  DATA  1E,01,02,A3,09,02,B9 

,1E,0D,02 
flA  510  DATA  Al, 07,02,88, IE, 03, 02 

,A3,0B,02 
PD  520  DATA  89,  IE,  0F,  02,  C7,  06,  11 

,02,00,00 
W  530  DATA  E8,D7,01,Ba,3F,01,eB 

,D8,2B,85 
NB  540  DATA  95,  01 ,  2B,  9D,  31 ,  01 ,  A3 

,09,02,89 
HH  550  DATA  IE,  00,  02,  B8,  C7,  00,  SB 

,08,28,85 
DP  560  DATA  C7,  01 ,  28,  90,  63,  01,  A3 

,08,02,89 
JN  570  DATA  IE,  0F,  02,  C7,  06,  1 1 ,  02 

,00,00,E8 
JP  580  DATA  A6,01,BQ,3F,01,8B,DB 

,28,06,05 
NC  590  DATA  02,  28,  IE,  01 ,  02,  A3,  09 

,02, 89, IE 
LH  600  DATA  00,  02,  88,  C7,  00,  8B,  D8 

,2B,06,07 
Pfl  610  DATA  02,28, IE, 03, 02, A3, 0B 

,02,89, IE 
66  620  DATA  0F,  02,  C7,  06,  1 1 ,  02,  01 

,00, £8,75 
6P  630  DATA  01,88,85,31,01,86,90 

,95, 01, A3 
FH  640  DATA  09,  02,  89,  IE,  0D,  02,  BB 

,C7,00,8B 
HL  650  DATA  DS,  28,  85,  63,  01 ,  2B,  9D 

,C7,01,A3 
DA  660  DATA  0B,  02,  89,  IE,  0F,  02,  C7 

,06, 11,02 
Af  670  DATA  01 ,  00,  E8,  49,  01 ,  Al ,  01 

,02,88,  IE 
SL  680  DATA  05,  02,  A3,  09,  02,  B9,  IE 

,0D,02,B8 
BJ  690  DATA  C7,  00,  SB,  08,  2B,  06,  03 

,02, 2B, IE 
FF  700  DATA  07,  02,  A3,  08,  02,  89,  IE 

,0F,02,C7 
KL  710  DATA  06,  1 1 ,  02,  00,  00,  E8,  IE 

,01,A1,01 
KC  720  DATA  02,  89,  84,  31 ,  01 ,  Al ,  03 

,02,89,84 
LE  730  DATA  63,  01 ,  Al ,  05,  02,  89,  84 

,95,01,A1 
DI  740  DATA  07,02,89,84,07,01,83 

,C7, 02,83 
flK   750    DATA    FF, 28, 75, 03, BF, 00, 00 

,83,06,02 
CI   760    DATA    83,  FE,  28,75,03,  BE,  00 

,00, Al,01 
n   770    DATA    02, 03,06, F9, 01, 3D, 01 

,00,72,05 
AH  780    DATA    3D,  A0,  00,  72,  IS,  EB,  A3 

,01,25,03 
Oft   790    DATA    00, 05,02,00,83, 06, F9 

,01,00,78 
ra  800    DATA    02,F7,D8,A3,F9,01,A1 

,03,02,03 
KL   810    DATA    06,  FB,  01 ,  3D,  01 ,  00,  72 

,05,30,64 
m  820    DATA    00,72, 15, EO, 70, 01, 25 

,03,00,05 
FA  830   DATA    02,  00,  83,  06,  FB,  01 ,  00 

,78,02,F7 
Jfl  840   DATA    O8,A3,FB,01,A1,05,02 
,03,06,FD 


RL  850    DATA    01,30,01,00,72,05,30 

,A0,00,72 
JC  860    DATA    15,  EB,  57,  01,  25,  03,  00 

,05,02,00 
KL   870   DATA    83,  06,  FD,  01 ,  00,  78,  02 

,F7,D8,A3 
LH  8B0    DATA    FD,  01 ,  Al ,  07,  02,  03,  0e. 

,FF,01,30 
61   890    DATA    01,00,72,05,30,64,00 

,72, 1S,E8 
CI    900    DATA    31,01,25,03,00,05,02 

,00,83,06 
HP  910    DATA    FF,01,00,7S,02,F7,DS 

,A3,FF,01 
NB  920  DATA  Al ,  01 ,  02,  03,  06,  F9,  01 

, A3, 01, 02 
CP  930  DATA  A1,03,02,03,06,FB,01 

, A3, 03, 02 
IH  940  DATA  Al ,  05,  02,  03,  06,  FD,  01 

, A3, 05, 02 
FP  950  DATA  Al ,  07,  02,  03,  06,  FF,  01 

, A3, 07, 02 
KF  960  DATA  B4,  06,  B2,  FF,  CD,  21 ,  30 

,71,74,07 
LE  970  DATA  3C,  51 ,  74,  03,  E9,  Al ,  FD 

,32,FF,B8 
HL  980  DATA  00,  06,  33,  09,  BA,  4F,  18 

,0D, 10,88 
IK  990  DATA  00,  02,  33,  DB,  33,  D2,  00 

, 10,68,02 
HC  1000  DATA  00,00,10,03,50,53,5 

1,53,57,56 
OH  1010  DATA  BE,  01,  00,  BF,  01,  00,  8 

B,16,0F,02 
6P  1020  DATA  2B,16,0B,02,7D,04,F 

7,0F,F7,0A 
HC  1030  DATA  B9,3E,25,01,8B,0E,0 

D,02,2B,0E 
Nfl  1040  DATA  09,02,7D,04,F7,DE,F 

7,09,89,36 
EP  1050  DATA  23,01,3B,OA,7D,08,B 

E, 00, 00, 87 
KJ  1060  DATA  CA,EB,04,90,BF,00,0 

0,89,36,27 
NL  1070  DATA  01 ,  89,  3E,  29,  01 ,  SB,  0 

2,D1,E0,A3 
LH  1080  DATA  2B,  01 ,  2B,  01,  8B,  08,  2 

8,01, A3, 20 
K    1090  DATA  01, 8B, 36, 09,02,88,3 

E,  08, 02, 41 
BH  1100  DATA  SB, 16, 11,02,56,53,8 

B,O7,8A,E0 
m   1110  DATA  25,FE,01.O1,E0,D1,E 

0,D1,E0,88 
ED  1120  DATA  D8,  80,  E7,  07,  01 ,  E0,  D 

1,E0,03,D8 
ei  1130  DATA  8B,C6,D1,F8,D1,F8,0 

3,D8,8i,E6 
CL  1140  DATA  03,00,O1,E6,O1,E6,0 

3,F2,D1,E6 
OH  1150  DATA  88,84,03,01,26,22,0 

7,0A,O4,26 
LC  1160  DATA  88,  07,  SB,  5E,  83,  FB,  0 

0,70,11,03 
NB  1170  DATA  36,  27,  01 ,  03,  3E,  29,  0 

1,03, 1E,2B 
JE  1180  DATA  01,E2,B1,£B,0F,90,0 

3,36,23,01 
KF  1190  DATA  03,  3E,  25,  01 ,  03,  IE,  2 

D,01,E2,A0 
EH  1200  DATA  5E,  5F,  5A,  59,  58,  58,  C 

3,51, 52, Al 
DL  1210  DATA  2F,  01 ,  75,  09,  FB,  84,  0 

0,OD,1A,89 
GL  1220  DATA  16,  2F,  01 ,  B9,  08,  00,  A 

1,2F,01,33 
DA  1230  DATA  02,  A9,  02,  00,  74,  02,  8 

2,01,A9,04 
KD  1240  DATA  00,74,02,86,01,32,0 

6,D0,EA,D1 
IK   1250  DATA  D8.  E2,  E8,  A3,  2F,  01 ,  5 
A,  59,  03  /Q 
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Solving  Alphanumeric 
Puzzles  On  Your 
Home  Computer 


Jim  Butterfield,  Associate  Editor 


In  this  article,  Associate  Editor  Jim 
Butt  erf ield  shows  how  a  computer  can 
be  used  to  solve  a  classic  brainteaser. 
The  example  program  loorks  on  any 
computer  with  BASIC. 


Alphanumeric  puzzles  are  a  popu- 
lar diversion,  but  have  you  ever 
tried  to  solve  one  with  a  computer? 
Let's  give  it  a  try.  In  the  process, 
well  learn  about  program  building, 
as  well  Here  is  the  puzzle  we'll 
attempt  to  solve: 

RAM 

AND 

ROM 


DATA 


This  is  an  addition  problem. 
Each  letter  in  the  puzzle  stands  for  a 
numeric  digit.  The  challenge  is  to 
replace  each  letter  with  a  number 
so  that  the  addition  makes  sense. 
Here's  a  hint:  There's  nothing  odd 
about  this  computer's  RAM  and  ROM, 
and  loe  have  truly  prime  DATA, 

Alphanumeric  puzzles  of  this 
sort  are  sometimes  easy  to  solve — 
you  almost  can  do  them  in  your 
head.  At  other  times,  they  are  com- 
plex and  require  lengthy  cogitation. 
One  slip  in  the  addition  and  you 
might  spend  an  hour  chasing  a  so- 
lution that  won't  work. 

A  computer  is  good  at  per- 
forming math  and  repetitive  tasks, 
so  it  can  help  a  great  deal.  But  you 
must  use  common  sense  in  putting 
the  problem  to  your  computer,  or 
you'll  waste  a  massive  amount  of 


computer  time.  If  you  attack  the 
problem  with  brainpower,  you  may 
arrive  at  a  solution  without  having 
to  program  the  computer  at  all.  On 
other  occasions,  the  computer  saves 
hours  of  dull  work. 

We'll  solve  this  problem  using 
your  home  computer.  But  first,  a 
comment  about  the  problem's  ter- 
minology and  assumptions. 

First  Reasoning 

The  phrase  nothing  odd  about  RAM 
and  ROM  signals  that  these  are  even 
numbers.  This  may  not  be  only  a 
hint;  it  may  be  needed  to  eliminate 
extra  solutions.  Since  even  numbers 
must  end  in  a  last  digit  of  0,  2,  4,  6, 
or  8,  we  may  assume  that  the  letter 
M  has  one  of  these  values.  Examin- 
ing the  right-hand  column  of  the 
addition,  we  also  see  that  M  cannot 
have  a  value  of  zero.  (If  M  were 
equal  to  zero,  then  the  result  of  add- 
ing the  rightmost  row  would  be  D 
rather  than  A.)  Thus,  we  know  that 
M  must  be  2,  4,  6,  or  8.  When  we 
begin  to  write  the  program,  this  will 
be  one  of  the  first  facts  which  we 
will  give  the  computer. 

Another  important  hint  is 
found  in  the  phrase  truly  prime 
DATA,  This  means  that  DATA  will 
work  out  to  be  a  prime  number  (one 
which  doesn't  divide  evenly  by  any 
other  number).  We  may  need  to 
examine  the  possible  solutions  to 
see  which  are  prime  and  which  are 
not,  but,  in  the  meantime,  the  fact 
that  DATA  is  prime  reveals  another 
important  piece  of  information:  The 
letter  A  must  be  odd.  Since  the  last 
digit  of  an  odd  number  must  be 


odd,  then  A  must  have  a  value  of  1, 
3,  5,  7.  or  9.  Of  these,  we  can  eHmi- 
nate  the  value  5  immediately.  Any 
number  ending  in  5  is  divisible  by 
5,  so  it  can't  be  prime.  Thus,  we 
know  that  A  must  represent  the 
digit  1,  3,  7,  or  9. 

Take  a  look  at  the  first  letters  of 
each  number:  R,  A,  and  D.  None  of 
these  can  be  zero  because  we  don't 
write  conventional  numbers  with 
zero  as  the  first  digit.  When  we 
come  to  these  digits,  we'll  instruct 
the  computer  not  to  try  replacing 
them  with  zero. 

Now  we  have  the  basis  for 
some  more  advanced  conclusions. 
We  know  that  A  must  be  an  odd 
digit.  Look  at  the  rightmost  column: 
M  plus  D  plus  M  equals  A,  plus  a 
possible  carry  to  the  next  column. 
Since  A  must  be  odd,  we  conclude 
that  the  sum  of  M  plus  M  must  be 
an  even  number.  So  to  make  the 
total  odd,  D  must  be  an  odd  num- 
ber, too.  Another  fact  which  we'll 
give  to  the  computer. 

Look  at  the  left  column.  The 
letter  D  is  generated  by  a  carry.  The 
biggest  carry  we  possibly  could 
have  for  this  addition  would  be 
two.  And  since  we've  just  decided 
that  D  must  be  odd,  that  means  D 
must  have  a  value  of  one.  This  is  a 
good  place  to  start  programming. 
Enter  a  NEW  command  to  erase 
any  previous  program,  then  enter 
this  line: 

100    D=l 

That's  our  first  fact:  D  equals  1. 
Type  in  the  rest  of  the  program 
lines  as  they  appear  in  this  article. 
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Let's  concentrate  on  the  right- 
most column  again.  We  normally 
add  digits  in  right-to-left  order,  and 
we'll  ask  the  computer  to  do  the 
same,  trying  out  various  values  to 
see  which  ones  work.  We  know 
that  M  plus  D  plus  M  equals  A  (plus 
a  possible  carry).  We  know  the  val- 
ue of  D,  as  welL  so  let's  try  different 
values  for  M.  Since  M  is  an  even 
digit  (but  not  zero)  this  FOR-NEXT 
loop  is  appropriate. 

110  FOR  M=2  TO  8  STEP  2 
990  NEXT  M 

Note  that  we're  looking  ahead 
and  writing  the  NEXT  statement  at 
the  same  time  as  FORy  allowing  lots 
of  space  in  between  for  the  lines  we 
have  yet  to  write. 

At  this  stage  we  should  ask  if 
there  is  any  forbidden  value  for  M. 
It's  a  good  idea,  each  time  you  in- 
troduce a  new  trial  value,  to  make 
sure  that  the  number  isn't  taken 
already  by  a  letter  whose  value  we 
have  solved.  In  this  case,  the  only 
solved  letter  is  D  with  a  value  of  1; 
since  M  starts  at  2  it  can  never 
conflict.  To  remind  ourselves  of  the 
rule,  let's  test  for  the  forbidden 
value  anyway. 

120    IF    D-M    THEN    990 

Now  that  we  have  values  for  D 
and  M,  we  can  calculate  a  total  for 
the  first  column.  Calling  this  total 
Tl,  we  calculate  as  follows. 

130    T1=M+M+D 

Let's  see  if  we  have  a  carry  to 
the  next  column;  this  happens  if  the 
value  of  Tl  is  10  or  greater.  If  we 
divide  Tl  by  10  and  take  the  integer 
(INT)  value  of  the  result,  we  arrive 
at  the  carry  to  the  next  column:  It 
might  be  0,  1,  or  2  in  this  case.  The 
variable  Kl  holds  the  value  of  the 
carry. 

140    K1=INT(T1/10) 

We  have  the  total  and  the  car- 
ry, but  we  still  don't  know  the  digit 
that  belongs  at  the  bottom  of  col- 
umn 1.  For  example,  if  the  total  was 
17  (with  a  carry  of  1),  the  digit  7 
would  appear  in  this  place.  We  can 
obtain  this  by  subtracting  ten  times 
the  carry  from  the  total. 

150    Dl-Tl-Kl*10 

At  this  point,  we  have  the  digit 
that  goes  at  the  bottom  of  column  1 
(to  represent  the  letter  A).  Let's  set 
it  and  check  to  make  sure  it's  not 
the  same  as  the  solved  values  for  M 


and  D.  If  it  is  the  same,  we  must  try 
new  values. 

160  A=D1 

170  IF  A==M  OR  A=D  THEN  990 

As  long  as  we're  setting  values 
for  A,  we  know  it  must  be  odd  (the 
value  of  DATA  is  prime).  We  could 
put  in  a  specific  test  for  this,  but 
that's  not  necessary  in  this  case. 
Because  D  has  a  value  of  1,  the  total 
for  this  column  must  be  odd,  (The 
sum  of  M  plus  M  must  be  even; 
adding  1  to  that  sum  always  creates 
an  odd  number.) 

We  might  as  well  eliminate  an- 
other possibility  so  as  to  save  com- 
puting time.  As  noted  earlier,  the 
fact  that  DATA  is  prime  means  that 
A  can't  have  a  value  of  5. 

180    IF    A^5    THEN    990 

Quick  Trial 

At  this  point,  let's  try  a  test  run  to 
see  if  we  are  getting  reasonable  val- 
ues. Enter  the  following  line  and 
run  the  program. 

200    PRINT    D;M;A 

When  you  run  this  program, 
line  200  reveals  the  possible  values 
of  D,  M  and  A.  There  are  only  three, 
and  D  always  has  a  value  of  1  (re- 
member, we  set  that  value  at  the 
beginning).  You  might  like  to  try 
the  arithmetic  on  the  right  hand 
column  to  insure  that  it's  correct. 
It's  time  to  tackle  the  second  col- 
umn. We'll  wipe  out  line  200, 
which  existed  only  for  testing  pur- 
poses, and  proceed  to  more  ambi- 
tious calculations. 

Onward  And  Upward 

The  second  column  contains  the 
addition  A  plus  N  plus  O  (the  letter 
O,  not  the  numeral  0),  plus  any 
carry  from  column  1.  We  know  the 
value  of  A,  but  N  and  O  are 
unknown  to  us.  Let's  try  out  vari- 
ous values,  beginning  with  N. 

200    FOR   N=0    TO    9 
980    NEXT    N 

Again,  we  enter  both  parts  of 
the  FOR-NEXT  loop  together.  Note 
that  for  correct  nesting,  NEXT  N 
must  be  occur  ahead  of  NEXT  M. 
We'll  check  N  for  credibility, 

210    IF    N=A    OR    N=M    OR    N=D   THEN 
980 

Add  these  lines  to  try  different 
values  for  O. 

220  FOR  0-0  TO  9 

230  IF  0=N  OR  0=A  OR  0=M  OR  0= 

D  THEN  970 
970  NEXT  0 


If  you  study  the  puzzle  careful- 
ly, you  may  see  that  the  values  for 
O  and  N  are  interchangeable.  They 
appear  only  in  this  column,  and 
their  total  is  all  that  counts.  You 
might  exploit  this  by  changing  line 
230  to  include  IF  O  <  N  OR... 
which  would  force  O  to  be  bigger 
than  N  and  thus  eliminate  duplicate 
solutions  and  extra  calculating.  But 
such  things  are  easier  to  spot  in 
hindsight  than  when  you're  pro- 
gramming. We'll  leave  the  program 
as  shown. 

Here's  an  important  note.  It's  a 
wise  practice  to  avoid  variables 
named  O,  since  it's  easy  to  confuse 
the  alphabetic  letter  with  an  unre- 
lated number.  We're  using  O  in  this 
case  to  keep  the  program  close  to 
the  original  puzzle.  Be  careful  not  to 
confuse  the  letter  O  with  the  nu- 
meral 0  in  the  preceding  lines  and 
in  the  ones  to  follow. 

It's  time  to  compute  the  total 
for  column  2.  Remember,  we  must 
add  in  the  carry  from  column  1. 
These  lines  calculate  the  digit  at  the 
bottom  of  this  column  and  the 
carry. 

240    T2=KH-A+N+0 
250    K2=INT(T2/10) 
260    D2«T2-K2*10 
270    T=D2 

280    IF    T=0    OR    T=N    OR    T-A    OR    T= 
M    OR    T=D    THEN    970 

Again,  we'll  add  a  test  line  and 
run  the  program  to  see  whether 
we're  making  progress. 

300    PRINT    D?M;ArN;OrT 

The  list  of  possible  answers  is 
pretty  long,  but  the  rest  of  the  pro- 
gram will  chop  it  down. 

Last  Column 

For  column  3,  we  need  to  calculate 

the  sum  of  R  plus  R  plus  A,  plus  the 
carry  from  column  2.  The  value  of  R 
is  not  known,  so  we  must  try  a  new 
set  of  values.  However,  we  do  know 
that  R  cannot  be  zero  (because  it's 
the  first  digit  in  a  number). 

300  FOR  R^l  TO  9 

310  IFF  R=T  OR  R-O  OR  R-N  OR  R 

^A  OR  R=M  OR  R=D  THEN  960 
960  NEXT  R 

The  totals  are  computed  as  in 

previous  cases. 

320  T3=K2+R+R+A 
330  K3=INT{T3/10) 
340  D3«T3-K3*10 

Since  the  digit  at  the  bottom  of 
this  column  must  be  A,  we  can 
exclude  other  values  immediately. 
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350    IF    D3<>A   THEN    960 

We  know,  too,  that  the  carry 
must  have  a  value  of  1  to  yield  the 
correct  value  for  D. 

360     IF    K3<>1    THEN    960 

Hov^  close  are  we  getting?  Enter 
this  test  line  and  run  the  program. 

400    PRINT    D;A?T;A 

There  will  be  duplicate  num- 
bers. We  foresaw  this  fact  when  we 
noted  the  interchangeability  of  the 
variables  N  and  O.  The  computer 
prints  ten  lines,  representing  five 
different  solutions.  The  first  one  is 
1383 — not  a  prime  number,  since  it 
divides  evenly  by  3, 

Now  that  you  have  reduced 
the  number  of  possibilities  to  five, 
you  could  check  them  out  by  hand. 
You  might  find  it  an  interesting  ex- 
ercise to  do  a  little  factoring  within 
your  program.  Three  of  the  five 
possibilities  divide  by  3,  and  here's 
an  interesting  fact:  If  a  number  di- 
vides by  three,  the  sum  of  its  digits 
will  divide  by  three.  Thus,  if  you 
add  the  values  of  D,  A,  T,  and  A, 
you  can  check  this  total  for  divisi- 
bility by  three. 

What's  the  lesson?  A  computer 
can  eliminate  some  of  the  drudgery 
work,  but  it  can't  replace  the  hu- 
man brain.  It  often  requires  consid- 
erable reasoning  just  to  set  up  a 
problem  in  a  form  that  the  com- 
puter can  handle.  And  in  many 
cases,  such  as  this  one,  the  com- 
puter may  not  give  you  the  final 
answer,  but  will  instead  reduce  the 
possibilities  to  a  range  that  humans 
can  manage  easily. 

In  short,  computers  are  only  as 
smart  as  the  humans  who  program 
them.  A  "dumb"  program — one 
that  has  no  pre-reasoning  applied 
to  its  construction — runs  very  slow- 
ly indeed,  and  may  yield  inaccurate 
results.  A  little  brain  work  goes  a 
long  way. 

As  an  additional  exercise,  you 
might  add  some  program  lines  to 
check  the  final  value  of  DATA  to 
make  sure  that  it's  prime.  For  that 
matter,  the  computer  might  print 
the  final  result  on  the  screen  or  a 
printer.  If  you're  looking  for  a  new 
challenge,  you  might  try  writing 
your  own  program  to  solve  this 
classic  alphanumeric  puzzle: 

SEND 

MORE 


MONEY 


Hi-Res  Text 
For  Apple  II 


Adam  Levin 


This  program  copies  the  contents  of  a 
40-column  text  screen  onto  either  of 
the  Apple's  hi-res  screens,  opening 
the  door  to  a  whole  new  category  of 
graphics  effects.  Among  other  things, 
it  allows  Apple  //  +  owners  to  display 
loxvercase  characters.  This  technique 
is  fully  compatible  with  the  Apple- 
soft/DOS Tool  Kit  character  sets. 


The  Apple  ITs  high-resolution 
graphics  screen  has  certainly  been 
put  through  its  paces  over  the 
years.  There  are  programs  to  fade  it 
in  and  out,  scroll  it  every  which 
way,  invert  the  colors,  and  so  on. 
The  text  screen,  on  the  other  hand, 
gets  less  attention.  There  are  clever 
methods  available  for  manipulating 
it,  but  it  just  doesn't  offer  as  much 
flexibility  as  the  hi-res  screen. 

But  what  if  you  could  treat  the 
text  screen  just  like  the  hi-res 
screen?  You  could  fade  the  text  in 
and  out,  smoothly  scroll  it  in  vari- 
ous directions,  and  even  invert  the 
colors.  "Hi-Res  Text"  takes  each 
character  on  the  40-column  text 
screen  and,  using  a  lookup  table, 
draws  that  character  on  either  of 
the  hi-res  graphics  screens.  The 
lookup  table  is  in  the  same  format 
as  the  Applesoft/DOS  Program- 
mer's Tool  Kit  character  sets,  so  you 


can  use  your  favorite  character  set 

for  the  translation  or  create  your 
own.  In  addition,  since  you  define 
the  shapes  of  the  characters,  Apple 
11+  users  can  obtain  lowercase 
characters  on  the  hi-res  screen. 

Starting  Out 

Except  for  Program  5,  the  BASIC 
demonstration  program,  the  pro- 
grams and  file  included  with  this 
article  must  be  entered  with  the 
"MLX"  machine  language  entry 
program  published  elsewhere  in  this 
issue.  Read  the  MLX  instructions 
carefully  before  you  begin.  Note 
that  if  you  wish  to  use  the  demon- 
stration program  (Program  5),  you 
must  save  Programs  1-4  from  MLX 
with  the  filenames  indicated  below 
(Program  2  must  be  saved  as 
HIRES.FADE,  and  so  on).  You  will 
need  starting  and  ending  addresses 
to  enter  Programs  1  and  2. 

For  Program  1,  HIRESTEXT: 

STARTING  ADDRESS?         0300 
ENDING  ADDRESS?  0351 

For  Program  2.  HIRES.FADE: 

STARTING  ADDRESS?         0350 
ENDING  ADDRESS?  039F 

Program  1  (HIRES.TEXT)  copies 
the  text  screen  to  a  hi-res  screen. 
Program  2  (HIRES.FADE)  erases  a 
screenful  of  hi-res  text  by  fading  it 
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gradually  to  the  background  color. 
Program  3  (IIEC.ASCII.SET)  and 
Program  4  (II  +  .ASCII.SET)  are 
character  sets.  The  data  in  Program 
3  is  for  the  Apple  He  and  lie,  and 
the  data  in  Program  4  is  for  the  II  + . 
Choose  the  character  set  appropri- 
ate for  your  computer  and  type  it  in 
with  MLX.  Again,  you  will  need 
starting  and  ending  addresses  to 
enter  these  programs. 
For  Program  3.  IIEC.ASCII.SET: 


STARTING  ADDRESS? 
ENDING  ADDRESS? 


6000 
62FF 


For  Program  4,  II  +  ,ASCII.5ET: 

STARTING  ADDRESS?         6000 
ENDING  ADDRESS?  62FF 

After  you  have  typed  those 
files  from  MLX,  type  and  save  Pro- 
gram 5,  then  run  it.  After  asking 
which  computer  you  are  using,  it 
prints  a  screenful  of  text  on  the  text 
screen,  then  copies  it  to  the  hi-res 
screen.  After  a  short  pause,  it  fades 
out  the  hi-res  screen. 

Using  HIRES.TEXT 

Program  5  shows  the  basic  tech- 
niques for  using  HIRES.TEXT  and 
the  character  set  of  vour  choice.  To 
use  HIRES.TEXT,  first  BLOAD  it 
into  memory  at  location  768  ($300). 
Next,  BLOAD  a  character  set  into 
memory  at  location  24576  ($6000). 
Once  the  character  set  is  in  place, 
you  can  activate  HIRES.TEXT  with 
CALL  768  from  BASIC  or  300G 
from  the  built-in  machine  language 
monitor. 

After  HIRES.TEXT  has  copied 
the  text  screen  to  the  hi-res  screen, 
you  can  manipulate  the  hi-res 
screen  any  way  you  like.  There  are, 
however,  some  options  to  consider. 
First,  HIRES.TEXT  does  not  clear 
the  hi-res  screen  before  it  begins 
copying.  This  makes  it  easy  to  over- 
lay text  onto  existing  graphics.  If 
you  want  the  hi-res  screen  to  be 
blank  before  the  characters  are 
transferred,  you  must  erase  it  in  the 
usual  way. 

In  order  for  HIRES.TEXT  to 
copy  text  onto  the  correct  hi-res 
page  (1  or  2),  you  must  place  a 
number  in  a  memory  location 
where  the  program  can  find  it.  If 
you  use  the  command  HGR  or 
HGR2,  this  is  done  for  you.  Other- 
wise, you  must  POKE  a  value  into 
location  230  before  you  run 
HIRES.TEXT.  For  hi-res  page  1,  use 


POKE    230,32.    For    page    2,    use 
POKE  230,64. 

You  will  also  need  to  decide 
what  is  to  be  visible  during  the 
copying  process.  If  you  w^ant  to  see 
the  characters  becoming  visible  on 
the  hi-res  screen,  you  must  turn  on 
that  screen  beforehand.  Or,  sup- 
pose that  you  want  to  fade  in  the 
entire  screen:  In  that  case,  you 
might  display  a  blank  hi-res  screen 
while  the  copying  is  underway,  and 
then  use  a  routine  that  fades  from 
the  filled  hi-res  screen  to  the  blank 
one.  Here  are  the  POKEs  for  turn- 
ing on  different  screens. 
Text  Screen 

POKE    "16300,0: POKE    -16302, 0:POK 
E    -16303,0 

Hi-Res  Page  1 

POKE  -16300, 01  POKE  -16302,0; POK 

E  -16297,0: POKE  -16304,0 

Hi-Res  Page  2 

POKE  -16299,0: POKE  -16302, 0:POK 
E  -16297,0: POKE  -16304,0 

If  you  have  an  Apple  11  +  ,  you 
won't  be  able  to  type  the  lowercase 
letters  in  lines  58  and  62  unless 
your  computer  has  been  modified 
to  include  a  lowercase  character 
generator.  It's  possible  to  get  lower- 
case characters  on  the  screen  by 
displaying  the  characters  which, 
when  converted,  correspond  to 
lowercase  in  the  new  character  set. 
Under  normal  circumstances,  these 
character  values  appear  as  lower- 
case and  punctuation.  If  you'd  rath- 
er not  figure  out  the  proper 
character  codes,  you  can  simply 
omit  the  lowercase  text  in  these 
lines.  Program  5  will  still  provide 
an  effective  demonstration  of  text 
on  the  hi-res  screen.  As  an  alterna- 
tive, any  word  processors  have 
some  method  for  entering  lower- 
case characters  even  if  they  can't  be 
displayed  at  the  time.  You  could 
use  such  a  word  processor  to  create 
a  message  for  your  text,  then  EXEC 
the  text  into  your  program.  Alterna- 
tively, you  can  add  32  ($20)  to  the 
ASCII  value  of  each  character  which 
you  want  to  display  in  lowercase. 

Please  refer  to  the  "MLX"  article  in  this  issue 
before  entering  the  following  programs, 

Program  1:  HIRES.TEXT 

0300:  A5  E6  09  18  85  E6  ft2  17  59 

0303:  A0  27  B4  FF  A9  00  85  FD  0F 

0310:  A9  07  85  FE  8A  20  CI  FB  ftl 

0318:  Bi  28  29  7F  38  E9  20  30  F7 

0320;  28  0A  0A  26  FD  0A  26  FD  C2 


0320:  69  00  B5  FC  A5  FD  69  60  BB 

0330:  85  FD  A5  29  45  E6  85  29  B9 

0338:  A4  FE  81  FC  A4  FF  91  28  C6 

0340;  38  AS  29  E9  04  C6  FE  10  D8 

0348:  ED  88  10  BE  CA  10  B9  60  BF 

0350:  E2  E5  00  00  00  00  00  00  41 

Program  2:  HIRES.FADE 


0350: 

A9 

20 

85 

E6 

20 

F2 

F3 

20 

27 

0358: 

00 

03 

AD 

52 

C0 

AD 

57 

C0 

26 

0360: 

AD 

54 

C0 

AD 

50 

C0 

AD 

51 

77 

0366: 

03 

85 

E6 

A9 

FF 

85 

FD 

A0 

76 

0370: 

00 

10 

A9 

38 

66 

FD 

90 

IC 

9D 

0378: 

A9 

00 

85 

26 

A5 

E6 

85 

27 

61 

0380: 

Bl 

26 

25 

FD 

91 

26 

£6 

26 

86 

0388: 

00 

F6 

E6 

27 

A5 

27 

29 

IF 

3F 

0390: 

00 

EE 

F0 

OF 

20 

58 

FC 

2C 

5F 

0398: 

54 

C0 

2C 

51 

C0 

60 

00 

00 

IB 

Program  3 

:  IIEC.ASCILSEl 

6000: 

00 

00 

00 

00 

00 

00 

00 

00 

C0 

600S; 

08 

08 

06 

08 

08 

00 

08 

00 

A0 

6010: 

14 

14 

14 

00 

00 

00 

00 

00 

62 

6018: 

14 

14 

3E 

14 

3E 

14 

14 

00 

5B 

6020: 

08 

3C 

0A 

IC 

28 

IE 

08 

00 

C0 

6028; 

06 

26 

10 

08 

04 

32 

30 

00 

41 

6030: 

04 

0A 

0A 

04 

2A 

12 

2C 

00 

E8 

6038: 

08 

08 

08 

00 

00 

00 

00 

00 

FF 

6040: 

08 

04 

02 

02 

02 

04 

08 

00 

96 

6048: 

08 

10 

20 

20 

20 

10 

06 

00 

68 

6050: 

08 

2A 

IC 

00 

IC 

2A 

08 

00 

3D 

6058: 

00 

08 

08 

3E 

08 

08 

00 

00 

60 

6060: 

00 

00 

00 

00 

00 

08 

04 

00 

89 

6060: 

00 

00 

00 

3E 

00 

00 

00 

00 

00 

6070: 

00 

00 

00 

00 

00 

00 

08 

00 

41 

6078: 

00 

20 

10 

08 

04 

02 

00 

00 

EB 

6080: 

IC 

22 

32 

2A 

26 

22 

IC 

00 

B2 

6086: 

08 

0C 

08 

08 

08 

08 

IC 

00 

6A 

6090; 

IC 

22 

20 

IS 

04 

02 

3E 

00 

12 

6098; 

3E 

20 

10 

IS 

20 

22 

iC 

00 

C5 

60  A0: 

10 

18 

14 

12 

3E 

10 

10 

00 

65 

60  AS: 

3E 

02 

IE 

20 

20 

22 

IC 

00 

90 

60B0: 

38 

04 

02 

IE 

22 

22 

IC 

00 

82 

60B8: 

3E 

20 

10 

08 

04 

04 

04 

00 

5B 

60C0: 

IC 

22 

22 

IC 

22 

22 

IC 

00 

EF 

60C8: 

IC 

22 

22 

3C 

20 

10 

0E 

00 

85 

60D0: 

00 

00 

08 

00 

00 

00 

00 

00 

D2 

60D8: 

00 

00 

08 

00 

08 

08 

04 

00 

03 

60E0: 

10 

08 

04 

02 

04 

08 

10 

00 

AC 

60E8: 

00 

00 

3E 

00 

ZE 

00 

00 

00 

63 

60F0: 

04 

08 

10 

20 

10 

08 

04 

00 

62 

60FS; 

IC 

22 

10 

08 

08 

00 

08 

00 

23 

6100: 

IC 

22 

2A 

3A 

lA 

02 

3C 

00 

93 

6108: 

08 

14 

22 

22 

3E 

22 

22 

00 

F8 

6110: 

IE 

22 

22 

IE 

22 

22 

IE 

00 

66 

6118: 

iC 

22 

02 

02 

02 

22 

IC 

00 

A2 

6120: 

IE 

22 

22 

22 

22 

22 

IE 

00 

B6 

6128; 

3E 

02 

02 

IE 

02 

02 

3E 

00 

41 

6130: 

3E 

02 

02 

IE 

02 

02 

02 

00 

D0 

6138: 

3C 

02 

02 

02 

32 

22 

3C 

00 

8C 

6140; 

22 

22 

22 

3E 

22 

22 

22 

00 

A2 

6148: 

IC 

08 

00 

08 

08 

08 

IC 

00 

35 

6150: 

20 

20 

20 

20 

20 

22 

IC 

00 

F2 

6158: 

22 

12 

0A 

06 

0A 

12 

22 

00 

2F 

6160: 

02 

02 

02 

02 

02 

02 

3E 

00 

99 

6168: 

22 

36 

2A 

2A 

22 

22 

22 

00 

8F 

6170: 

22 

22 

26 

2A 

32 

22 

22 

00 

92 

6178: 

IC 

22 

22 

22 

22 

22 

IC 

00 

0A 

6180: 

IE 

22 

22 

IE 

02 

02 

02 

00 

ID 

6 1 88 : 

IC 

22 

22 

22 

2A 

12 

2C 

00 

3A 

6190; 

IE 

22 

22 

IE 

0A 

12 

22 

00 

ED 

6198: 

IC 

22 

02 

IC 

20 

22 

IC 

00 

B5 

61A0: 

3E 

08 

08 

08 

00 

08 

08 

00 

76 

61A0: 

22 

22 

22 

22 

22 

22 

IC 

00 

3D 

6100; 

22 

22 

22 

22 

22 

14 

06 

00 

E4 

6100; 

22 

22 

22 

2A 

2A 

36 

22 

00 

6A 

61C0: 

22 

22 

14 

08 

14 

22 

22 

00 

8D 

61C8: 

22 

22 

14 

08 

08 

08 

08 

00 

98 

61D0: 

3E 

20 

10 

08 

04 

02 

3E 

00 

El 

6108: 

3E 

06 

06 

06 

06 

06 

3E 

00 

22 
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61E0: 
61Ea: 
6iF0: 
61Fa: 
6200: 
6208; 
6210: 
6218; 
6220: 
622S: 
6230; 
6230: 
6240; 
6248: 
6250: 
62S8; 
6260; 
6268: 
6270: 
6278; 
6280: 
6288: 
6290: 
6298: 
62A0: 
62  A8: 
62B0; 
62B8: 
62C0: 
62CS: 
62D0: 
6208: 
62E0: 
62E8; 
62F0: 
62FB: 


00  02  04 
3E  30  30 
00  00  08 
00  00  00 
04  08  10 
00  00  IC 
02  02  IE 
00  00  3C 
20  20  3C 
00  00  IG 
18  24  04 
00  00  IC 
02  02  IE 
08  00  0C 
10  00  18 
02  02  22 
0C  08  08 
00  00  36 
00  00  IE 
00  00  IC 
00  00  IE 
00  00  3C 
00  00  3A 
00  00  3C 
04  04  IE 
00  00  22 
00  00  22 
00  00  22 
00  00  22 
00  00  22 
00  00  3E 
38  0C  0C 
08  08  00 
18 


0E 

2C 


IS  30 


lA  00 


00  2A  14 


08  10  20 
30  30  30 
14  22  00 
00  00  00 
00  00  00 
20  3C  22 
22  22  22 
02  02  02 
22  22  22 
22  3E  02 
IE  04  04 
22  22  3C 
22  22  22 
08  00  08 
10  10  10 
12  0E  12 
08  08  08 
2A  2A  2A 
22  22  22 
22  22  22 
22  22  IE 
22  22  3C 
06  02  02 
02  IC  20 
04  04  24 
22  22  32 
22  22  14 
22  2A  2A 
14  08  14 
22  22  3C 
10  08  04 
06  0C  0C 
00  00  08 
IB  18 
00  00  00 
2A  14  2A 


00  00  26 
3E  00  9E 

00  00  07 

7F  00  BA 
00  00  CA 

00  35 

00 


3C 
IE 


12 

3C  00  15 
3C  00  BO 
3C  00  05 
04  00  A4 
20  IC  01 
22  00  4A 
iC  00  AB 
12  0C  12 
22  00  01 
IC  00  47 
22  00  D4 
22  00  FO 
IC  00  04 
02  02  BA 
20  20  59 
02  00  19 
IE  00  A2 
18  00  4D 
2C  00  06 
08  00  4D 
36  00  4A 
22  00  DF 
20  IC  52 
3E  00  2B 
38  00  9F 
08  08  A5 
0E  00  FD 
00  00  52 
00  00  B6 


Program  4:  II  +  .ASCILSET 


6000; 

00 

00 

00 

00 

00 

00 

00 

00 

C0 

6008; 

00 

08 

00 

08 

08 

08 

00 

08 

B4 

6010: 

00 

14 

14 

14 

00 

00 

00 

00 

99 

6010: 

00 

14 

14 

3E 

14 

3E 

14 

14 

lA 

6020: 

00 

00 

3C 

0A 

IC 

28 

IE 

08 

D0 

6028: 

00 

06 

26 

10 

08 

04 

32 

30 

15 

6030: 

00 

04 

0A 

0A 

04 

2A 

12 

2C 

EC 

6038: 

00 

08 

08 

08 

00 

00 

00 

00 

7C 

6040: 

00 

08 

04 

02 

02 

02 

04 

08 

CB 

6048: 

00 

08 

10 

20 

20 

20 

10 

0S 

B8 

6050: 

00 

08 

2A 

IC 

00 

IC 

2A 

00 

27 

6058; 

00 

00 

08 

08 

3E 

00 

08 

00 

BC 

6060: 

00 

00 

00 

00 

00 

00 

00 

04 

55 

6068: 

00 

00 

00 

00 

3E 

00 

00 

00 

IB 

6070: 

00 

00 

00 

00 

00 

00 

00 

00 

39 

6078: 

00 

00 

20 

10 

08 

04 

02 

00 

92 

6080: 

00 

IC 

22 

32 

2A 

26 

22 

IC 

F9 

6088: 

00 

00 

0C 

08 

08 

08 

00 

IC 

D9 

6090: 

00 

IC 

22 

20 

18 

04 

02 

3E 

Bl 

6090: 

00 

3E 

20 

10 

IS 

20 

22 

IC 

8F 

60A0! 

00 

10 

IS 

14 

12 

3E 

10 

10 

63 

60A8; 

00 

3E 

02 

IE 

20 

20 

22 

IC 

FC 

60B0; 

00 

38 

04 

02 

IE 

22 

22 

IC 

F9 

60B8: 

00 

3E 

20 

10 

08 

04 

04 

04 

6A 

60C0: 

00 

IC 

22 

22 

IC 

22 

22 

IC 

B8 

60CO: 

00 

IC 

22 

22 

3C 

20 

10 

0E 

87 

60D0: 

00 

00 

00 

09 

00 

08 

00 

00 

32 

60DQ: 

00 

00 

00 

00 

00 

08 

08 

04 

4E 

60E0: 

00 

10 

03 

04 

02 

04 

08 

10 

27 

60E8; 

00 

00 

00 

3E 

00 

3E 

00 

00 

86 

60F0: 

00 

04 

08 

10 

20 

10 

08 

04 

0A 

60F8: 

00 

IC 

22 

10 

08 

08 

00 

08 

6E 

6100: 

00 

iC 

22 

2A 

3A 

lA 

02 

3C 

28 

6108: 

00 

00 

14 

22 

22 

3E 

22 

22 

El 

6110: 

00 

IE 

22 

22 

IE 

22 

22 

IE 

9C 

6118: 

00 

IC 

22 

02 

02 

02 

22 

IC 

BE 

6120: 

00 

IE 

22 

22 

22 

22 

22 

IE 

CC 

6120: 

00 

3E 

02 

02 

IE 

02 

02 

3E 

16 

6130: 

00 

3E 

02 

02 

IE 

02 

02 

02 

El 

6138: 

00 

3C 

02 

02 

02 

32 

22 

3C 

C3 

6140: 

00 

22 

22 

22 

3E 

22 

22 

22 

D2 

6140: 

00 

IC 

08 

08 

08 

00 

00 

IC 

20 

6150: 

00 

20 

20 

20 

20 

20 

22 

IC 

03 

6158: 
6160: 
6168: 
6170: 
6178: 
6100: 
6188: 
6190: 
6198: 
61A0: 
61A8: 
61B0: 
61BQ: 
61C0: 
61C0: 
61D0: 
61D8: 
61E0: 
61E8; 
6iF0; 
61F8; 
6200: 
6208: 
6210: 
621B: 
6220: 
6220: 
6230: 
6238; 
6240; 
6248: 
6250: 
6258: 
6260: 
6268: 
6270: 
6278: 
6200: 
6280: 
6290: 
6298: 
62  A0: 
62  AS: 
62B0: 
6288; 
62C0  = 
62CQ: 
62D0: 
62D8: 
62E0: 
62ES: 
62F0: 
62F8; 


00  22 
00  02 
00  22 
00  22 


00 
00 
00 
00 

00 


00  3E 
00  22 
00  22 
00  22 
00  22 
00  22 
00  3E 
00  3E 
00  00 
00  3E 
00  00 
00  00 
00  04 
00  00 
00  02 
00  00 
00  20 
00  00 
00  10 
00  00 
00  02 
00  08 
10  00 
00  02 
00  0C 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
00  04 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 

00  38 

00  00 

00  0E 

00  2C 

00  00 


12  0A 
02  02 
36  2A 
22  26 
22  22 
22  22 
22  22 
22  22 
22  02 
08  08 
22  22 
22  22 
22  22 
22  14 
22  14 
20  10 
06  06 
02  04 
30  30 
00  08 
00  00 
00  10 


00 
02 


IC 
IE 


00  3C 
20  3C 


00 

24 


IC 
04 


IC  22 
02  IE 
00  0C 
18  10 
02  22 
08  08 


00 
00 
00 


36 
IE 

IC 


IE  22 
3C  22 
00  3A 
00  3C 
04  IE 
00  22 
00  22 
00  22 
00  22 
22  22 
00  3E 
0C  0C 
08  08 
18  18 
lA  00 
2A  14 


06  0A 
02  02 
2A  22 
2A  32 
22  22 
IE  02 
22  2A 
IE  0A 
IC  20 
08  08 
22  22 
22  22 
2A  2A 
00  14 
08  08 
08  04 
06  06 
08  10 
30  30 
14  22 
00  00 
00  00 

20  3C 
22  22 
02  02 
22  22 
22  3E 
IE  04 
22  3C 
22  22 
08  08 
10  10 
12  0E 
08  00 
2A  2A 
22  22 
22  22 
22  IE 
22  3C 
06  02 
02  IC 
04  04 
22  22 
22  22 
22  2A 
14  08 
22  3C 
10  08 
06  0C 
08  00 
30  IS 
00  00 
2A  14 


12  22  25 
02  3E  5E 
22  22  5D 
22  22  E2 
22  iC  A2 
02  02  30 
12  2C  C2 
12  22  A0 
22  IC  88 
08  08  EC 
22  IC  54 
14  08  2C 
36  22  F2 
22  22  88 
08  08  12 
02  3E  BA 
06  3E  DE 
20  00  E4 
30  3E  25 
00  00  50 
00  3E  F9 
00  00  C7 
22  3C  01 
22  IE  73 
02  3C  F0 
22  3C  CE 
02  3C  FO 
04  04  CC 
20  IC  01 
22  22  A7 
08  IC  5C 
12  0C  12 
12  22  0F 
08  IC  36 
2A  22  01 
22  22  17 
22  iC  FO 
02  02  BA 
20  20  59 
02  02  37 
20  IE  FF 
24  18  59 
32  2C  B9 
14  08  61 
2A  36  E3 
14  22  B2 
20  IC  52 
04  3E  60 
0C  38  9E 
00  00  A5 
IB  0E  D5 
00  00  04 
2A  00  3A 


Program  5:  Demonstration 

For  instructions  on  entering  this  program, 
piease  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

^1    10    D*    =    CHR*     (4) 

C5  15  PRINT  D*"BLOAD  HIRES. TEXT" 

:  REM  ,A*300 
DF  20  PRINT  CHR*  (26)  "1":  TEXT  : 

HONE 
AB  30  PRINT  "DEMONSTRATION  OF  HI 

RES. TEXT" 
19  34  PRINT  "  AND  HI 

RES. FADE" 
5fl  40  PRINT  ;  PRINT  :  PRINT  "WHI 

CH  TYPE  OF  APPLE  ARE  YOU  U 

SING?" 
9D  41  VTAB  PEEK  <37)  -*-    3:  PRINT 
'Q'  WILL  QUIT": 

VTAB  PEEK  (37 J  -  2 
22   42  PRINT  *" +'     PLUS   'E'  ENHNC 

D   'C  COMPACT  ";:  GET  T»: 
PRINT  T* 
33  43  IF  T*  -  "Q"  OR  T*  =  "q"  TH 

EN  HOME  :  TEXT  s  END 
Fa  44  IF  T*  <  >  "  +  "  AND  T*  <  >  " 

E"  AND  T«  <  >  "e"  AND  TS  < 
>  "C"  AND  T*  <  >  "c"  THEN 


VTAB  PEEK  (37) :  GOTO  42 
B3  50  PRINT  :  PRINT  "HIRES. TEXT 

WILL  BE  USED  TO  TURN";  PR I 

NT  "THIS  SCREEN  INTO  GRAPH 

ICS.  " 
AB  52  PRINT  :  PRINT  "PRESS  RETUR 

N  TO  SEE  HIRES, FADE":  GET 

L4: 
5A  54  IF  L*  <  >  CHR*  (13)  THEN  5 

2 
FE  56  HOME  :  PRINT  :  PRINT  "LOAD 

ING  ASSOCIATED  FILES." 
DE  58  PRINT  :  PRINT  "THE  NEXT  FE 

W  LINES  ARE  IN  LOWER-CASEs 

":  PRINT  :  PRINT  "Now  is  t 

he  time  for  all  good  men": 
PRINT  "to  came  to  the  aid 
o-F  their  country.  " 
AB  60  PRINT  :  PRINT  "  !"  +  CHR* 

(34)  ^    "#$7.&M)I  +  ,-./01234 

567B9: ; <=>73ABCDEFGHIJKLMN 

OPDRSTUVWXYZ"  +  CHR*  (91); 
i3  62  PRINT  CHR*  (92)  +  "]^"  +  C 

HR$  (95)  +  CHR*  (96)  +  "ab 

cdef ghi  j  kl mnopqrstuvwxyz " 

+  CHR*  (123)  +  CHR*  (124) 

+  CHR*  (125)  +  CHR*  (126) 

+  CHR*  (127) 
^B  64  IF  T*  =  "  +  "  THEN  T*  =  "": 

PRINT  D*"BL0ADII+.ASC1I.SE 

T":  REM  ,A*6000 
15  66  IF  LEN  (T*)  THEN  PRINT  D*" 

BLO AD 1 1 EC . ASC 1 1 . SET "  ;  REM 

,A*60000 
'a  6a  IF  L*  =  CHR*  (13)  THEN  PR  I 

NT  D**'BLQADHIRES.FADE";  RE 

M  ,A*350 
Ar  70  PRINT  :  PRINT  "THIS  IS  ST  I 

LL  THE  TEXT  SCREEN.  " 
13  72  PRINT  "PRESS  A  KEY  WHEN  RE 

ADY.  .  .  ";  :  GET  A* 
S7  80  CALL  840:  REM  *350 
:f  85  POKE  -  16368,0 
iD  90  FOR  R  =  1  TO  400:  IF  PEEK 

(  -  16384)  <  127  THEN  NEXT 
^i   95  POKE  -    16368,0 
k9  100  GOTO  20  © 


All  the  programs  in 
this  issue  are  avail- 
able on  the  ready- 
to-load  COMPUTE! 
Disk.  To  order  a 
one-year  (four-disk) 
subscription,  call  toll 
free  800-247-5470 
(in  lA  800-532-1272). 
Please  specify  which 
computer  you  are 
using. 
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Hi-Res  PRINT 

For  Commodore  64 


This  short  machine  language  utility 
allows  you  to  quickly  print  characters 
on  the  Commodore  64's  high-resolution 
graphics  screen. 


How  many  times  have  you  thought 
of  an  idea  for  a  game,  replete  with 
high-resolution  screens,  colorful 
animated  sprites,  and  onscreen 
scoring  and  timing?  Many  different 
utilities  are  available  for  drawing 
shapes  on  a  hi-res  screen,  but  most 
of  them  omit  one  important  item: 
printing  text.  Of  course,  you  can 
always  copy  character  patterns 
onto  the  hi-res  screen  in  BASIC,  but 
the  process  is  painfully  slow.  "Hi- 
Res  PRINT"  is  a  short  machine  lan- 
guage routine  which  allows  you  to 
print  letters  and  numbers  anywhere 
on  a  hi-res  screen,  using  different 
colors  and  reverse  mode  if  desired. 
Because  it's  done  in  machine  lan- 
guage, the  process  is  as  fast  as  using 
normal  PRINT  statements  in 
BASIC.  And  you  can  use  the  rou- 
tine from  BASIC,  without  having 
any  machine  language  knowledge. 

Typing  The  Programs 

You'll  need  to  type  in  four  short 
programs.  Program  1  is  the  ma- 
chine language  (ML)  program  itself. 
Program  2  creates  an  abbreviated 
character  set  for  use  by  the  ML 
program.  Program  3  demonstrates 
hi-res  character  printing,  and  Pro- 
gram 4  is  used  to  relocate  the  ML  to 
a  different  memory  area. 

Begin  by  typing  in  Program  1 
with  the  "MLX"  machine  language 


Scott  M.  Petty 


entry  program  found  elsewhere  in 
this  issue.  Read  the  MLX  instruc- 
tions carefully  and  be  sure  to  save  a 
copy  of  the  program  when  you  are 
done  typing.  Here  are  the  starting 
and  ending  addresses  for  Program  1: 

starting  address:     COOO 
Ending  address:       C20F 

It  is  important  that  you  save 
this  program  with  the  filename 
HRPRINT  so  that  the  other  pro- 
grams can  load  it  by  that  name. 

The  ML  program  will  need  a 
set  of  character  patterns  to  use  for 
printing  on  the  hi-res  screen.  Pro- 
gram 2  (CHARSETMAKER)  is  a 
BASIC  program  that  makes  a  disk 
file  containing  data  for  the  first  64 
characters  of  the  Commodore  64 
character  set.  Type  in  Program  2 
and  save  a  copy. 

The  character  file  which  you 
create  with  Program  2  will  load  at 
any  address  that  you  specify.  For 
now,  supply  the  address  indicated 
below  so  that  you  can  use  this  char- 
acter set  with  the  demonstration 
program  (Program  3).  Run  Program 
2.  When  it  asks  for  the  address  of 
the  character  set,  enter  the  number 
16384  and  press  RETURN.  The 
program  then  asks  you  to  name  the 
file  in  which  this  character  set  will 
be  stored.  Type  in  HRCHARSET 
and  press  RETURN.  Again,  it  is  im- 
portant to  use  this  particular  file- 
name so  that  Program  3  can  load 
the  file  from  disk.  After  you  answer 
the  second  prompt,  the  program 
writes  the  file  to  disk  and  ends. 

Type  in  and  save  Programs  3 
and  4,  then  load  and  run  Program  3 


Hi'Ri:?   PRINT 
IT'S  FftST   am   Ef! 


OR    IH   REOtRSr.    SIHPLL? 


//  \fOu  think  it's  difficult  to  print  charac- 
ters on  the  Commodore  64's  hi-res 
screen,  look  again.  "Hi-Res  PRINT"  is  a 
convenient  machine  language  utility 
which  prints  letters  and  numbers  at  any 
location  on  a  hi-res  screen.  No  machine 
language  knowledge  is  necessary  to  use 
this  program. 

(DEMO)  for  a  demonstration.  The 
program  begins  by  loading  the  files 
HRPRINT  and  HRCHARSET  into 
the  correct  memory  locations  and  by 
clearing  the  hi-res  screen.  Then  it 
draws  a  sine  wave  to  prove  that  you 
are  indeed  looking  at  a  hi-res  screen. 
Finally,  the  program  prints  several 
text  messages  in  different  colors.  In 
the  left  portion  of  the  screen  are  two 
example  score  and  timer  displays 
which  continue  to  update  as  long  as 
the  program  runs.  To  end  the  dem- 
onstration and  return  to  the  normal 
screen,  press  any  key. 

Loading  From  A  Program 

Let's  learn  how  to  use  the  machine 
language  routine  by  observing  how 
Program  3  handles  it.  Several  pre- 
paratory steps  are  required.  First, 
the  BASIC  program  must  load  both 
the  ML  code  and  the  special  charac- 
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ter  set  which  it  uses.  Program  3 
does  this  in  lines  110-120: 

110  IF  A=0  THEN  A=1:LQAD"HRPRI 

NT  "  ,  8  , 1 
120  IF  A=l  THEN  ^=2 : LOAD"HRCHA 

RSET",8,1 

These  lines  should  appear  at 
the  very  beginning  of  the  program, 
before  any  other  BASIC  statements 
(except  REMarks,  which  the  com- 
puter ignores).  If  you  are  not  famil- 
iar with  how  LOAD  works  in 
program  mode,  these  lines  may 
look  somewhat  baffling.  Here  is  an 
explanation  of  how  they  work. 

When  it  executes  a  LOAD 
statement  under  program  control, 
BASIC  performs  the  load  and  then 
reruns  the  program  from  the  begin- 
ning. However,  BASIC  remembers 
the  values  of  variables  that  were 
previously  used  in  the  program* 
Thus,  the  first  time  you  run  Pro- 
gram 3,  the  variable  A  is  set  to  1, 
and  the  computer  loads  the  ma- 
chine language  file  HRPRINT. 
After  the  load  is  complete,  the  com- 
puter runs  the  program  a  second 
time,  beginning  again  with  the  first 
line  of  the  program.  But  now  A  is 
equal  to  1,  so  the  IF  test  in  line  110 
fails,  and  the  computer  proceeds  to 
line  120.  The  variable  A  is  set  to  2, 
the  computer  loads  the  file  CHAR- 
SET,  and  the  program  is  run  from 
the  beginning  for  a  third  time.  This 
time  both  IF  tests  fail,  and  the  com- 
puter goes  on  to  execute  the  re- 
mainder of  the  program. 

Locating  The  Hi-Res  Screen 

The  next  step  is  to  decide  where  to 
put  the  hi-res  screen.  High -resolu- 
tion screens  require  two  separate 
blocks  of  memory.  The  largest 
block,  called  the  bitmap,  is  8000 
bytes  in  size;  it  contains  infor- 
mation about  which  pixels  (screen 
dots)  are  turned  on  and  which  are 
off.  The  second  block  is  1000  bytes 
in  size;  it  contains  color  information 
for  each  of  the  8  X  8-pixel  blocks 
in  the  bitmap.  The  computer  com- 
bines pixel  information  from  the 
first  block  and  color  information 
from  the  second  block  to  produce 
the  final  picture  which  appears  on 
the  hi-res  screen. 

The  64's  video  chip  can  refer  to 
addresses  only  within  a  16K 
(16,384-byte)  memory  zone.  As  a 
result,  you  must  always  locate  the 
8000-byte  bitmap  and  its  1000-byte 


color-memory  block  within  the 
same  16K  area.  The  Commodore 

64's  memory  can  be  divided  into 
four  such  blocks,  which  are  known 
as  video  banks: 


Bank  0: 
Bank  1: 
Bank  2 
Bank  3 


0-16383  ($0000-$3FFF) 

16384-32767  ($4000-$7FFF> 

32768-49151  ($8000-$BFFF) 

49152-65535  ($COOO-$FFFF) 


Program  3  locates  the  bitmap 
and  color  memory  in  video  bank  0. 
The  bitmap  will  start  at  location 
8192  and  color  memory  will  go  at 
1024,  the  same  area  used  as  screen 
memory  in  text  mode.  Line  200  tells 
the  computer  the  bitmap's  location, 
and  line  220  puts  the  machine  in  hi- 
res bitmap  mode. 

The    following   shows   where 
Program  3  puts  the  bitmap,  color 
memory,  and  character  set: 
Location        Usage 

1024-2023      color  memory 
8192-16383     bitmap 
16384-16895  character  set 

One  disadvantage  of  using  vid- 
eo bank  0  is  that  it  locates  the  bit- 
map in  the  middle  of  the  RAM 
(Random  Access  Memory)  area 
normally  used  to  store  BASIC  pro- 
grams. BASIC  memory  ordinarily 
resides  in  locations  2049-40959, 
giving  you  38,911  bytes  to  hold  a 
BASIC  program  and  its  variables.  In 
this  case,  however,  it  is  restricted  to 
locations  2049-8191,  leaving  only 
6141  bytes  of  BASIC  program 
space.  What's  more,  the  program 
takes  no  steps  to  protect  the  bitmap; 
if  you  expand  the  program,  it  will 
eventually  encroach  on  the  bitmap 
area,  corrupting  its  contents.  For 
longer  BASIC  programs,  you  may 
need  to  use  a  different  video 
bank — a  subject  that  is  beyond  the 
scope  of  this  article.  In  Programming 
the  Commodore  64,  available  from 
COMPUTE!  Books,  you  can  find 
detailed  explanations  of  video  bank 
usage  and  methods  for  creating  a 
protected  memory  zone. 

Setting  Up 

Once  you  have  loaded  the  machine 
language  program  and  its  character 
set,  located  the  hi-res  screen,  and 
enabled  hi-res  mode,  you're  nearly 
ready  to  print  characters  on  the 
screen.  Before  you  can  use  the  ML 
program,  however,  you  must  tell  it 
what  sort  of  printing  to  perform,  as 
well  as  the  location  of  the  bitmap, 
color  memory,  and  character  set. 


Line  150  sets  two  important  vari- 
ables— IN  and  PR — which  are  used 

in  later  SYS  statements.  The  vari- 
able IN  stands  for  initialize.  This 
variable  is  used  in  a  SYS  call  which 
passes  the  initializing  information 
to  the  ML  program.  The  first  initial- 
izing statement  occurs  in  line  240: 

240  SYS  IN,  2,  8192,  16384,  1024 

The  first  value  in  every  SYS 
statement  is  the  address  of  the  ML 
code  which  you  wish  to  execute. 
Since  we  set  IN  to  49152  (line  150), 
this  SYS  statement  transfers  control 
to  the  ML  instructions  beginning  at 
location  49152.  If  the  ML  code 
loads  at  location  49152,  you  should 
always  set  IN  to  49152,  If  you  relo- 
cate the  code  to  a  different  memory 
area  (see  below),  IN  should  be  set 
to  the  new  starting  address  of  the 
ML  code. 

This  particular  ML  program  is 
designed  to  retrieve  additional 
information  which  appears  after 
the  SYS  address.  The  last  three  val- 
ues in  line  150  should  look  familiar: 
Here  the  numbers  8192,  16384,  and 
1024  indicate  the  location  of  the 
bitmap,  character  set,  and  color 
memory,  respectively.  When  you 
execute  this  SYS  statement,  the  ML 
program  stores  this  information  for 
future  reference. 

The  second  value  in  the  SYS 
statement  (2,  in  this  case)  is  a  spe- 
cial flag  for  the  ML  program.  This 
value  must  be  either  1  or  2,  depend- 
ing on  what  sort  of  printing  you 
desire  and  what  sort  of  hi-res  screen 
is  in  use.  For  normal  hi-res  (not 
multicolor)  screens  and  normal 
printing,  this  value  should  be  1.  If 
you  are  using  a  multicolor  hi-res 
screen,  or  if  you  wish  to  have 
reverse  printing  on  a  normal  screen^ 
set  this  value  to  2. 

Of  course,  any  of  the  values  in 
the  SYS  statement  can  be  replaced 
by  numeric  variables.  For  instance, 
BASE  is  set  to  8192,  so  you  could 
replace  the  8192  in  line  240  with 
BASE. 

Once  you've  initialized  the 
program  for  use,  the  next  step  is 
usually  to  clear  the  hi-res  screen.  If 
you  don't  do  this,  it  will  contain 
random  shapes.  Clearing  the  bit- 
map in  BASIC  is  a  time-consuming 
chore,  since  you  must  POKE  zeros 
into  8000  consecutive  memory  lo- 
cations. Line  270  does  the  job  in 
less  than  a  second  by  using  the  ML 
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program  to  print  reverse  spaces  on 

the  entire  hi-res  screen. 

Clearing  the  screen  is  a  very 
simple  matter.  Line  260  creates  a 
string,  F$,  v^hich  consists  of  40 
spaces.  In  line  270,  the  program 
prints  F$  24  times,  once  for  each 
character  row  on  the  screen.  Here  is 
the  SYS  statement  that  prints  the 
string: 

SYS  PR,  15,  0,  J,  F$ 

Once  again,  the  first  parameter 
after  SYS  is  an  address  within  the 
ML  program.  The  variable  PR 
stands  for  PRINT;  it  is  set  to  49207 
in  Une  150.  The  second  value  sets 
the  printing  color  (15,  in  this  case, 
for  light  gray).  The  third  and  fourth 
parameters  set  the  character  col- 
umn and  character  row,  respective- 
ly,  where  the  first  character  of  the 
string  is  printed.  In  this  example, 
we  always  start  printing  at  column 
0,  the  leftmost  column  of  the 
screen.  The  fourth  value  is  set  by 
the  variable  J,  which  the  FOR- 
NEXT  loop  in  line  270  causes  to 
cycle  from  0  to  24. 

The  last  parameter  tells  the  ML 
program  what  to  print.  On  this  oc- 
casion it  is  a  string  variable  (F$). 
You  can  also  use  any  string  or  nu- 
meric expression  that  requires  no 
more  than  80  characters  to  print. 
Here  are  just  a  few  examples: 

SYS  PR,  15,  0,  0,  ''HELLO'' 
SYS  PR,  15,  0,  0,  LEFTS(A$(12),1) 
SYS  PR,  15,  0,  0,  SIN(TI)*TIT2 

The  rest  of  the  SYS  statements 
in  Program  2  print  messages  on  the 
screen,  reinitializing  the  ML  pro- 
gram as  needed  for  various  kinds  of 
printing,  By  examining  and  experi- 
menting with  these  lines,  you  will 
see  how  to  use  the  ML  routine  in 
several  different  ways. 

Relocating  The 
ML  Program 

Program  4  is  not  immediately  nec- 
essary, but  you  may  want  to  type  it 
in  for  future  use.  Like  many  other 
machine  language  programs  on  the 
Commodore  64,  Hi-Res  PRINT 
normally  occupies  the  protected 
memory  area  beginning  at  location 
49152.  It  may  happen  that  you 
wish  to  use  this  program  with  some 
other  ML  utiUty  which  also  loads  at 
that  address.  If  so,  you  can  run 
Program  4  to  create  a  copy  of  the 
ML  program  which  loads  and  runs 


at  a  different  memory  address. 

Before  using  Program  4,  you 
must  decide  on  a  new  location  for 
the  ML  program.  This  can  be  any 
free  RAM  area  at  least  524  bytes  in 
size  which  is  not  otherwise  in  use  at 
the  time.  When  you  run  Program  4, 
it  loads  the  HRPRINT  file  at  its 
normal  memory  location,  and  then 
asks  you  to  enter  the  new  memory 
address  and  the  filename  to  use  for 
the  new  file.  Of  course,  you  should 
use  some  filename  other  than 
HRPRINT  for  the  new  file.  (When 
loading  the  new  file  under  program 
control,  you  would  then  substitute 
the  new  filename  for  HRPRINT.) 
The  program  adjusts  all  of  the  ML 
program's  internal  addresses  for 
the  new^  location  and  writes  the 
new  file  to  disk. 

As  a  convenience.  Program  4 
also  prints  the  new  addresses  to  use 
for  IN  and  PR  in  the  SYS  statements 
for  this  program  (see  above).  Make  a 
note  of  these  addresses  and  be  sure 
to  set  IN  and  PR  accordingly  when 
using  the  relocated  version. 

In  addition  to  the  memory  oc- 
cupied by  the  ML  code  itself,  this 
program  stores  information  in  the 
following  memory  locations: 

679-767  ($02A7-$02FF) 
820-827  ($0334-$033B) 
1020-1023   ($03FC-$03FF) 

You  should  take  care  not  to 
POKE  into  these  locations  or  other- 
wise disturb  their  contents  when 
using  this  program. 

Program  1:  HRPRINT 

Pfease  refer  to  the  "MLX"  articfe  in  this  issue 
before  entering  the  following  program. 

C000:20  Fl  B7    8E    13    03  4C  15    40 

C008:C0  20  FD   AE    20    9E  AD  20    93 

C010:CE  Bl  A5    65    60    20  09  C0    C6 

C018i8D  FA  02    A5    64    8D  FB  02    0D 

C020:20  09  C0    8D    FC    02  A5  64    84 

C028:8D  FD  02    20    09    C0  BD  FE    97 

C030:02  A5  64    8D    FF    02  60  A0    EA 

0038:00  A9  00    99    A7    02  C8  C0    55 

C040t51  D0  F8    20    Fl    B7  SE  34    7F 

C048:03  20  Fl    B7    8E    36  03  20    80 

C050:F1  B7  8E    35    03    20  FD  AE    21 

0058:20  9E  AD    A5    0D    D0  13  20    93 

C060:DD  BD  A0    00    B9    00  01  C9    ED 

C06B:00  F0  26    99    A7    02  C8  4C    A7 

C070:64  C0  20    A3    B6    A0  00  Bl    7C 

C07S:64  85  02    C8    Bl    64  85  FB    80 

C080:C8  Bl  64    85    FC    A0  00  Bl    D3 

C08S:FB  99  A7    02    C8    C4  02  D0    Bl 

C090:F6  A9  A7    85    F9    A9  02  85    45 

C098:FA  AD  13    03    C9    01  D0  12    9B 

C0A0:AD  34  03    85    FB    A9  10  85    EA 

C0A8:FC  20  B5    C0    AD    FC  03  8D    68 

C0B0:34  03  4C    01    C0    A9  00  BD    ED 

C0B8:FD  03  8D    FC    03    A2  08  46    74 

C0C0:FB  90  03    18    65    FC  6A  6E   AS 

C0C8;FC  03  CA   D0    F2    BD  FD  03    BC 


C0D0:60  AD    35    03  85    FB   A9    A0  D4 

C0D8!85  FC    20    B5  C0    18    AD    FC  7A 

C0E0:03  6D    FC    03  8D    FC    03    AD  23 

C0E8;FD  03    6D    FD  03    8D    FD    03  05 

C0F0:AD  FC    03    8D  FE    03    AD    FD  IF 

C0F8!03  8D    FF    03  AD    36    03    85  61 

CI00:FB  A9    08    85  FC    20    B5    C0  D9 

C108:18  AD    FC    03  6D    FE    03    BD  CD 

C110;FC  03    AD    FD  03    6D    FF    03  39 

C118:8D  FD    03    18  AD    FC    03    6D  9B 

C120:FA  02    8D    FC  03    AD   FD    03  F0 

C128:6D  FB    02    8D  FD    03    AD    FC  CE 

C130;03  BD    37    03  AD   FD   03    BD  A8 

0138:38  03    A0    FF  C8    Bl    F9    C9  77 

C140:00  D0    01    60  8D    39    03    C9  3F 

0148:40  90    15    C9  60    F0    0B    B0  DC 

C150:09  38    E9    40  8D    39    03    4C  4B 

C15S:60  CI    38    E9  80    8D    39    03  Dl 

C160:AD  39    03    85  FB    A9    08    85  DD 

C168:FC  20    B5    C0  18    AD    FC    03  A9 

C170:6D  FC    02    8D  3A    03    AD    FD  3A 

C178:03  6D    FD    02  8D    3B    03    A2  BA 

C180:FF  8C    F9    02  A0    00    E8    8E  EB 

C1B8:F8  02    18    AD  FB    02    6D    37  G8 

C190:03  85    FD    A9  00    6D    38    03  7A 

C198:B5  FE    18    AD  F8    02    6D    3A  61 

C1A0:03  85    FB    A9  00    60    38    03  50 

C1A8:85  FC    Bl    FB  91    FD   E0    07  71 

C1B0:D0  04    AC    F9  02    AD    35    03  3B 

C1B8:85  FB    A9    28  85    FC    20    B5  CB 

C1C0:C0  18    AD    FC  03    6D    36    03  6D 

C1C8;8D  FC    03    AD  FD    03    69    00  5C 

C1D0:8D  FD    03    18  AD   FC    03    6D  51 

C108:FE  02    85    FB  AD    FO    03    6D  A5 

C1E0:FF  02    85    FC  AD    13    03    C9  EE 

C1E8:01  D0    08    AD  34    03    XI    FB  C8 

C1F0:4C  F6    CI    AD  34    03    91    FB  38 

C1F8:18  A9    08    60  37    03    80    37  E2 

C200:03  A9    00    60  38    03    80    38  69 

C208:03  4C    3C    CI  00    00    00    00  C5 
For  instructions  on  entering  these  programs, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

Program  2:  CHARSETMAKER 


JS 

100 

REM  CREATE  CHARACTER  SE 
T  FOR 

BG 

110 

REM  'HI-RES  PRINT'  ML  R 
OUTINE 

MG 

120 

PRINT  CHR?(142} :REM  USE 
CHR$(14)  FOR {2  SPACES} 
LOWERCASE 

AS 

130 

PRINT  CHR$(B):REM  DISAB 
LE  CASE  CHANGE  FROM  KEY 
BOARD 

QD 

140 

INPUT  "LOCATION  OF  CHAR 
ACTER  SET";N 

RB 

150 

A=N-INT(N/256)*256:  B=I 
NT (N/ 256) 

XC 

160 

INPUT  "FILENAME" ;F? 

EC 

170 

IF  LEN(F?)=0  THEN  160 

DA 

180 

PRINT  "WORKING  ..." 

JE 

190 

REM  COPY  FIRST  64  CHARA 
CTERS  FROM  ROM  CHARACTE 
R  SET 

SS 

200 

POKE  56334,  PEEK( 56334) 
AND  254 

AP 

210 

POKE  1,  PEEK(l)  AND  251 

KK 

220 

FOR  J=0  TO  511 

CK 

230 

POKE  J+N,  PEEK{53248+J) 

QF 

240 

NEXT  J 

FG 

250 

POKE  1,  PEEK(l)  OR  4 

PF 

260 

POKE  56334,  PEEK{ 56334) 
OR  1 

HP 

270 

CLOSE  15:0PEN  15,  8,  15 
,  "10" 

FA 

280 

GOSUB  410 

KO 

290 

OPEN  2,     B,     2,  F$  +  ",P, 

W" 

GOSUB  410 

JA 

300 

HQ 

310 

PRINT* 2,  GHR$(A); :PRINT 
#2,  CHR$(B)r 
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AC 

320 

GOSUB  410 

SS 

330 

FOR  J=0  TO  511 

PH 

340 

PRINT#2,  CHR$(PEEK(J+N) 

); 

NEXT  J 

JA  430 

DQ 

350 

RM  440 

AH 

360 

GOSUB  410 

XD 

370 

CLOSE  2: CLOSE  15 

CG  450 

BJ 

380 

PRINT  CHR?(9):REM  ENABL 

E  CASE  CHANGE  FROM  KEYB 

HM  460 

OARD 

PS 

390 

END 

CS  470 

DQ 

400 

REM  CHECK  DISK  DRIVE  ER 

ROR  STATUS 

PD  480 

QR 

410 

INPUT# 1 5 , EX, EX? , TR,  SE 

EX  490 

BE 

420 

IF  EX=0  THEN  RETURN 

FP  500 

RF 

430 

PRINT  CHR?(18)  "DISK  ER 

BB  510 

ROR" 

JD  520 

SB 

440 

PRINT  EX;EX$;TR;SE 

AD  530 

AB 

450 

GOTO  370 

EP  540 

Program  3:  Demo 

PS  550 

KB 

100 

REM  'HRPRINT'  DEMO 

EQ 

110 

IF  A=0  THEN  A^irLOAD  "H 
RPRINT",  8,  1 

Progra 

DP 

120 

IF  A=l  THEN  A=2:L0AD  "H 
RCHARSET",  8,  1 

KJ  100 

HD 

130 

POKE  53280,15 

PJ  110 

HC 

140 

REM  SET  SYS  ADDRESSES 

SA 

150 

IN=49152:  PR=49207 

CA  120 

JG 

160 

REM  BI  ARRAY  IS  USED  TO 

DRAW  CURVE 

QS  130 

RK 

170 

FOR  J=0  TO  7:BICJ)-2TJ: 

NEXT 

HJ  140 

KF 

180 

REM  BITMAP  AT  S192 

MP 

190 

BASE=8192 

JD  150 

JB 

200 

POKE  53272, PEEK(53272) 

{SPACE} OR  8 

EX  160 

XF 

210 

REM  HI -RES 

XB  170 

QQ 

220 

POKE  53265,  PEEK(53265) 
OR  32 

RX  180 

BM 

230 

REM  INITIALIZE  MULTl/RV 

PM  190 

S( 2), BITMAP  AT  8192,CHA 

GK  200 

RSET  AT  16384, COLOR  AT 

{ SPACE] 1024 

AR  210 

RG 

240 

SYS  IN,  2,    8192,  16384, 
1024 

RJ  220 

BK 

250 

REM  CLEAR  SCREEN  AND  DR 

JQ  230 

AW  CURVE 

XD  240 

MA 

260 

F$="":FOR  J=l  TO  40jF$= 

QR  250 

F$+GHR${32):NEXT 

QK  260 

RH 

270 

FOR  J=0  TO  24: SYS  PR,  1 
5,  0,  J,  F$:NEXT 

PJ 

280 

FOR  Y=0  TO  199  STEP  .5 

HX  270 

XX 

290 

X  =  INT (160+40  *  SIN(Y/ 
10)) 

JS  280 

DG 

300 

BY  =  BASE+40  *  (y  AND  2 

48)  +  (Y  AND  7)+(X  AND 

QJ  290 

[SPACE} 504) 

HX  300 

HM 

310 

POKE  BY,  PEEK (BY)  OR  (B 

AS  310 

I {NOT  X  AND  7)) 

JQ  320 

AB 

320 

NEXT  Y 

PE  330 

MX 

330 

REM  INITIALIZE  HIRES (1) 
, BITMAP  AT  8192,CHARSET 

KP  340 

AT  16384, COLOR  AT  1024 

EF  350 

GD 

340 

SYS  IN,  1,  8192,  16384, 

XR  360 

1024 

FK  370 

QH 

350 

REM  PRINT  MESSAGES  ON  H 

I-RES  SCREEN 

KF  380 

HH 

360 

SYS  PR,  6,  1,  1,  "PRINT 

HR  DEMO" 

DD  390 

DJ 

370 

SYS  PR,  2,  1,  2,  "CO  1 
987  COMPUTE!" 

DQ  400 

RQ 

380 

SYS  PR,  1,  17,  21,  "HIT 

QR  410 

ANY  KEY  TO  EXIT" 

BE  420 

HR 

390 

SYS  PR,  8,  17,  5,  "YOU 
{SPACE} CAN  PRINT  NORMAL 

RF  430 

LY" 

SB  440 

AM 

400 

REM  INITIALIZE  FOR  REVE 
RSE 

SD  450 

DJ 

410 

SYS  IN,  2,  8192,  16384, 
1024 

EM 

420 

SYS  PR,  5,  17,  13,  "OR 

[SPACE] IN  REVERSE  LETTE 

RS" 

REM  NORMAL  CHARACTERS  A 

GAIN 

SYS  IN,  1,  8192,  16384, 

1024 
SYS  PR,  14,  2,  9,  "TIME 
R:" 

SYS  PR,  14,  2,  17,  "SCO 
RE:" 

REM  UPDATE  SCORE  AND  TI 
MER 

FOR  J-0  TO  10000 
SYS  PR,  0r  8,  9,  TI 
SYS  PR,  0,  8,  17,  J 
GET  X$ 

IF  X$=""  THEN  NEXT  J 
REM  BACK  TO  NORMAL  TEXT 

SCREEN 
POKE  53265, 27: POKE  5327 
2,21 
PRINT  CHR$(i47) : END 


REM  THIS  PROGRAM  RELOCA 

TES  THE 

REM  'HRPRINT'  ML  ROUTIN 

E  AND  WRITES 

REM  THE  RELOCATED  CODE 

{SPACE] TO  DISK 

IF  A=0  THEN  A=1:L0AD  "H 

RPRINT ",8,1 

INPUT  "NEW  LOCATION  FOR 

HRPRINT"; N 
INPUT  "NEW  FILENAME  FOR 

HRPRINT "rF$ 
A=INT(N/256) :B=N-256*A 
PRINT  "WORKING..." 
CLOSE  15: OPEN  15,8,15, " 
10" 

GOSUB  410 
OPEN  2,  8,  2, 
W" 

GOSUB  410 
PRINT* 2,  CHR$(B) ;CHR$CA 

); 

GOSUB  410 

FOR  J=49152  TO  49675 
P-PEEK(J) 

IF  P<>76  AND  PO108  AND 
P<>32  THEN  PRINT#2,CHR 
$(P); :NEXT  J 
Z=PEEK(J+2) 

IF  Z<192  OR  Z>194  THEN 
{ SPACE } PRINT#2 , CHR? ( P ) ; 
:NEXT  J 
X=49152-N 
Y^PEEK(J+1) 
A=^Y+Z*256-X 
Z=^INT(A/256) 
Y=A-256*Z 

PRINT#2,  CHR$(P) ;CHR$(Y 
) ; CHR$ ( Z ) ; 
J=J+2 
NEXT  J 

PRINT  "NEW  SYS  VALUE  FO 
R  'IN' :";N 

PRINT  "NEW  SYS  VALUE  FO 
R  'PR' : ";N+55 
CLOSE  2: CLOSE  15: END 
REM  CHECK  DISK  DRIVE  ER 
ROR  STATUS 

INPUT# 1 5 , EX, EX$ , TR,  SE 
IF  EX=0  THEN  RETURN 
PRINT  CHR$C18)  "DISK  ER 
ROR" 

PRINT  EX;EX?rTR;SE 
GOTO  390 


F?  +  ",P, 


Indexing 
With 
Sorts 

Thomas  R  Shuitz 


This  article  explains  a  simple  way  to 
improve  the  efficiency  of  string  sort 
operations  in  BASIC.  Although  the 
programs  are  written  for  the  Commo- 
dore 64,  the  technique  can  be  adapted 
for  almost  any  computer  zvith  BASIC. 

Many  programs  require  that  you 
sort  a  group  of  strings  in  alphabeti- 
cal order.  Whether  you're  creating 
an  address  file,  keeping  track  of 
recipes,  or  compiling  statistics  for 
the  local  softball  team,  sorting  is 
often  a  fundamental  requirement. 
The  simplest  method  of  sorting  in- 
volves exchanging  the  contents  of 
one  string  for  another.  On  the  Com- 
modore 64,  exchanging  strings  of 
different  lengths  causes  an  internal 
process  known  as  garbage  collec- 
tion, in  v^^hich  the  computer  re- 
claims small  amounts  of  memory 
left  vacant  by  the  exchanges. 
Though  it  does  conserve  memory, 
garbage  collection  can  be  very  time 
consuming.  This  article  demon- 
strates a  method  for  avoiding  gar- 
bage collection  delays  and  speeding 
up  alphabetical  sorts. 

To  understand  how   the  im- 
provement works,  let's  look  at  the 
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conventional  method  for  storing 
and  sorting  strings,  Program  1  dem- 
onstrates an  elementary  bubble  sort 
of  a  string  array  containing  500  ele- 
ments. The  program  first  creates 
500  strings,  each  containing  a  ran- 
dom assortment  of  20  characters. 
Then  it  sorts  the  strings  into  alpha- 
betical order. 

The  sorting  occurs  in  lines 
210-250.  We  sift  through  the  array, 
comparing  pairs  of  strings.  If  the 
first  string  has  a  lower  alphabetical 
value  than  the  second  (line  230),  we 
conclude  that  it's  in  the  right  place 
and  don't  exchange  it.  Otherwise, 
we  exchange  the  two  strings 
through  the  use  of  a  temporary 
string  named  A$  (line  240).  To  eval- 
uate the  efficiency  of  this  sort,  the 
program  displays  the  time  required 
to  sort  the  array,  as  well  as  the 
amount  of  memory  required  for 
strings.  Depending  on  its  original 
position,  a  given  string  may  need  to 
be  recopied  many  times  before  the 
sort  is  complete.  This  process  is 
slow  in  itself,  and  it  also  creates  the 
likelihood  of  significant  garbage 
collection  delays. 

Program  2  shows  how  to  im- 
prove the  sort  through  the  use  of  a 
matching  numeric  array.  The  basic 
idea  is  to  use  the  numeric  array  as 
an  index  into  the  string  array.  Lines 
210-260  perform  the  sort  in  this 
program.  Again,  the  basic  tech- 
nique is  to  compare  pairs  of  items, 
swapping  them  if  they're  not  al- 
ready in  the  desired  order.  But  in- 
stead  of  exchanging  the  strings 
themselves,  we  simply  change  the 
elements  of  the  numeric  array 
w^hich  point  to  those  strings. 

The  result  is  a  dramatic  savings 
in  time  and  memory  consumption. 
In  one  test,  Program  1  took  12,616 
seconds  (just  over  'iVi  hours)  to 
complete  the  sort,  while  Program  2 
did  the  job  in  only  4820  seconds. 
The  secret  is  to  leave  the  strings  in 
their  original  order  and  to  switch  the 
numeric  indices  instead.  Lines  290- 
310  show  one  way  to  access  the 
strings  once  they  have  been  sorted. 
You  could  also  use  an  expression 
like  L$(SO(X)),  where  X  represents 
the  string  you  wish  to  access. 

This  technique  should  w^ork 
with  little  or  no  modification  on 
most  computers  with  BASIC.  (Atari 
BASIC  is  a  notable  exception,  since 
it  doesn't  support  string  arrays.)  If 


you  have  a  Commodore  64,  you 
may  want  to  refer  to  the  "Omega 
Sort"  article  elsewhere  in  this  issue, 
which  follows  the  same  basic  idea 
but  takes  advantage  of  a  machine 
language  routine  to  perform  the 
sort  even  faster.  Commodore  pro- 
grammers should  note  that  the  in- 
dex array  in  Program  2  is  a  floating 
point  array,  not  an  integer  array.  In 
some  versions  of  BASIC,  integer 
values  work  faster  than  floating 
point  variables,  but  this  is  not  the 
case  in  Commodore  BASIC. 

For  instructions  on  entering  these  pfogroms, 
please  refer  to  ''COMPUTEl's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

Program  1:  Bubble  Sort 

GS  100  PRINT  "CREATING  500  RAN 

DOM  STRINGS" 
RX  110  DIM  L${500) 
GB  120  FOR  J=l  TO  500 
RS  130  X$="":FOR  K=l  TO  20 
XP  140  X$=X$+CHR$(INT(RND(1)*2 

5)+65) 
RA  150  NEXT  K 
XB  160  L$(J)=X$ 
RB  170  NEXT  J 
CE  180  Ml  =  PEEK(52)*256  +  PEE 

K(51) 

PRINT  "SORTING" 
"000000" 
=  499  TO  0  STEP  - 


QF  190 
XD  200 
BF  210 


TI$  = 

FOR  X 

1 
KH  220  FOR  Y 
PM  230  IF  L$(Y) 

250 
QG  240  A$  =  L${Y):L$(Y) 

+1):L?(Y+1)  =  A? 
DB  250  NEXTtNEXT 


ss  1  TO  X 

<  L$(Y+1)  THEN 

L$(Y 


HH  260  T$  =  TI$ 

QD  270  M2  =  PEEK(52)*256  +  PEE 

KC51) 
AA  280  FOR  X=l  TO  500 
SP  290  PRINT  L$(X) 
FD  300  NEXT 
KJ  310  PRINT  "#  BYTES  USED  FOR 

STRINGS:  ";Ml-M2-6 
EX  320  PRINT  "16  SPACES}*  SECO 

NDS  REQUIRED:  ";T$ 

Program  2:  Bubble  Sort  With 
Index 

GS  100  PRINT  "CREATING  500  RAN 

DOM  STRINGS" 
DA  110  DIM  L$(500),SO{500) 
GB  120  FOR  J=X  TO  500 
RS  130  X$="";FOR  K=l  TO  20 
XP  140  X$=X$+CHR$(INT{RND(1)*2 

5) +65) 
RA  150  NEXT  K 
HS  160  L$CJ)=X$:SOCj)^J 
RB  170  NEXT  J 
CE  180  Ml  =  PEEK(52)*256  +  PEE 

K(51) 
QF  190  PRINT  "SORTING" 
XD  200  TI$  -  "000000" 

=  499  TO  0  STEP  - 


TI$  - 
BF  210  FOR  X 
1 

CG  220  FORZ  ^  1  TO  X 
XS  230  YA  =  SO(Z):YB  =  SOCZ+1) 
PB  240  IF  L$(YA}  <  L$CYB)  THEN 
260 

JB  250  SO{Z)  =  YB;S0(Z+1)  =  YA 

XA  260  NEXT: NEXT 

DJ  270  T$  =  TI$ 

JC  280  M2  =  PEEKC52)*256  +  PEE 

K(51) 
QD  290  FOR  X  =  1  TO  500 
XX  300  Y  =  SOCX) 
RM  310  PRINT  L$(Y) 
RF  320  NEXT 
BG  330  PRINT  "#  BYTES  USED  FOR 

STRINGS*  ";Ml-M2-6 
OR  340  PRINT  "[6  SPACES}*  SECO 

NDS  REQUIRED:  ";T5     @ 
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May  1987 
COMPUTE!  Disk 


All  the  exciting  programs  from  the  past  three  issues  of  COMPUTE!  are  on 
one  timesaving,  error-free,  floppy  disk  that  is  ready  to  load  on  your  Apple 
II,  II  +  ,  He,  and  lie  computers.  The  May  1987  COMPUTE!  Disk  contains  the 
entertaining  and  useful  Apple  programs  from  the  March,  April,  and  May 
1987  issues  of  COMPUTE! 

The  May  1987  COMPUTE!  Disk  costs  $12.95  plus  $2.00  shipping  and 
handling  and  is  available  only  from  COMPUTE!  Publications, 

For  added  savings  and  convenience,  you  may  also  subscribe  to  the  COM- 
PUTE! Disk.  At  a  cost  of  only  $39.95  a  year  (a  $12.00  savings),  you'll  receive 
four  disks,  one  every  three  months.  Each  disk  v^ill  contain  all  the  programs 
for  your  machine  from  the  previous  three  issues  of  COMPUTE!.  To  order  a 
subscription,  call  toll  free  800-247-5470  [in  lA  800-532-1272). 

This  is  an  excellent  way  to  build  your  software  library  while  you  enjoy  the 
quality  programs  from  COMPUTE!. 

Disks  and  subscriptions  are  available  for  Apple,  Atari,  Commodore  64  and 
128,  and  IBM  personal  computers.  Call  for  details. 

For  more  information  or  to  order  the  May  1987  COMPUTE!  Disk,  call  toll 
free  1-800-346-6767  (in  NY  212-887-8525)  or  write  COMPUTE!  Disk  P.O. 
Box  5038.  RD.R.  Station,  New  York,  NY  10150. 
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News  &  Products 


Macintosh  File  Protection 

Sentinel  is  a  data-security  program 
for  locking  up  your  files  on  the 
Macintosh.  You  can  secure  your 
private  files  with  one  mouse  click. 
Locked  files  cannot  be  accessed 
without  a  password,  nor  can  they 
be  copied  using  disk-recovery  pro- 
grams. Sentinel  also  encrypts  files  to 
DES  standards. 

DiskFit  is  a  hard-disk  backup 
utility  that  backs  up  incrementally 
and  automatically.  The  program 
creates  a  smart  set  of  disks  which  it 
continually  updates.  DiskFit  revises 
the  files  on  the  same  floppy  disk 
rather  than  writing  the  altered  files 
to  a  new  disk.  All  the  files  are  kept 
in  standard  Apple  format  so  they 
appear  as  icons  on  the  screen.  Disk- 
Fit  also  identifies  a  growing  file  and 
moves  it  to  a  new  disk  or  splits  the 
file  onto  two  disks. 

Retail  price  for  Sentinel  and 
DiskFit  is  $74.95  each. 

SuperMac   Software,   P.O.   Box 
390725,  Moujitain  View,  CA  94039 
Circle  Reader  Service  Number  216- 


PC  Communications 
Software 

Headlands  Communications  has 
released  PC-Talk4,  the  fourth  ver- 
sion of  this  data-communications 
software,  PC-Talk4  has  an  error- 
checking  protocol  for  accurate  file 
transfers;  screen  emulation  of 
VT 100/52  as  well  as  the  standard 
TTY  terminals,  expanded  macro  ca- 
pability, and  expanded  dialing  di- 
rectory which  allows  a  single 
keystroke  command  for  up  to  990 
phone  numbers;  and  split-screen 
editing  for  privacy.  You  can  stay  in 
PC-Talk4  and  still  access  DOS  com- 
mands, subdirectories,  view  DOS 
files,  and  check  available  disk 
space.  Plus,  there  are  quick  online 
baud-rate  changes  that  use  only 
one  keystroke  to  change  from  300 
to  9600  bps. 


PC-Talki  is  available  for  the 
IBM  PC  and  compatibles.  Laptop 
versions  are  also  available  for  To- 
shiba and  Zenith  computers.  Retail 
list  price  is  $129,  with  upgrades 
priced  at  $45. 

Headlands    Communications, 
P.O.  Box  8, 1624  Tiburon  Blvd.,  Tibu- 
ron,  CA  94920-0008 
Circle  Reader  Service  Number  217. 


Zoomracks  II  For  The  ST 

Quickview  has  released  Zoomracks 
U,  an  upgraded  version  of  the 
Zoomracks  database  and  word  pro- 
cessor for  the  Atari  ST.  New  fea- 
tures include  arithmetic  functions, 
mail  merge,  and  report  formatting. 

Quickview  has  also  introduced 
a  Business  Start  Kit  which  contains 
over  35  Zoomracks  templates  and 
output  forms  for  invoicing,  pay- 
ables, prospecting,  area  codes,  daily 
calendar,  names  and  addresses, 
checkbook,  phone  logs,  and  many 
other  small-business  uses. 

There's  also  a  Hoine  Start  Kit  of 
templates  and  output  forms  for 
home  use.  It  offers  names  and  ad- 
dresses, checkbook  balancing,  phone 
logs,  gift  lists,  recipes,  cookbook  in- 
dexes, and  other  applications. 

These  Quickview  products  are 
available  for  the  Atari  ST.  Zoom- 
racks  II  retails  for  $119.95.  Each 
Starter  Kit  sells  for  $19.95. 

Quickview  Systems,   147  Main 
St.,  Ste,  404,  Los  Altos,  CA  94022 
Circle  Reader  Service  Number  218. 

PrintMasfer  Plus  Update 

Unison  World  has  updated  Print- 
Master  Plus  for  the  Amiga  to  in- 
clude the  ability  to  save  graphics  to 
the  IFF  format  and  support  Amiga's 
color  screens.  With  this  program, 
you  can  create  customized  signs, 
banners,  stationery,  calendars,  and 
greeting  cards.  Text  can  be  mixed 
with  the  more  than  100  graphics 
included.  There  is  a  built-in  graph- 
ics editor  to  modify  artwork  or  save 


it  to  disk.  Ten  type  fonts  can  be 
created  in  five  styles — standard, 
shadow,  silhouette,  rain,  or  check- 
ered. The  program  features  both 
monthly  and  weekly  calendar 
routines. 

Print  Master  Plus  is  not  copy- 
protected. It  is  available  for  MS- 
DOS-compatible  computers  at 
$59.95,  for  the  Commodore  64/128 
at  $34.95,  for  the  Atari  ST  at  $39.95, 
and  for  the  Amiga  at  $49.95. 

Unison  World,  2150  Shatti4ck 
Ave,,  Ste.  902,  Berkeley,  Ca  94704 

Circle  Reader  Service  Number  219. 


Atari  Eight-Bit 
Combat  Simulation 

Firebird  Licensees  has  released 
MRCA—Mach  2,  a  combat  flight 
simulator  for  the  Atari  eight-bit 
computers.  This  game  simulates  the 
USAF  F-15  jet  fighter  with  3-D 
cockpit  displays,  aerobatic  maneu- 
vers, air-to-air  combat,  crosswinds, 
turbulence,  blind  landings,  training 
modes,  and  pilot  skill  ratings.  The 
package  includes  a  full-color  poster 
and  a  user's  manual.  A  joystick  is 
required. 

Suggested    retail    price    is 
$24.95. 

Benford    Communications,    520 
Havens    Cove   Rd.,    Brickfown,    N} 
08723-6940 
Circle  Reader  Service  Number  220. 

PC-Based  Diet 

Munch  is  a  menu-driven,  computer- 
based  diet  and  nutrition  program 
for  the  MS-DOS-compatible  com- 
puters. Each  day  you  enter  the  food 
you  have  eaten,  and  the  program 
calculates  the  carbohydrates,  pro- 
teins, fats,  and  kilocalories  you 
have  consumed.  Then  it  compares 
this  with  a  reasonable  diet  for 
someone  with  your  weight,  height, 
sex,  and  age,  and  suggests  ways 
you  might  improve  your  diet.  The 
emphasis  is  on  a  food  exchange 


112     COMPUTEI     May  1987 


system,  so  the  program  can  be  used 
by  dieters  and  diabetics. 

Munch  runs  on  the  IBM  PC, 
PCjr,  and  any  other  MS-DOS- 
based  computers. 

Suggested  retail  price  is 
$39.95. 

Pat   Munyon    &   C.R,    Smolin, 
7760  Fay  Ave,,  Suite  /,  La  jolla,  CA 
92037 
Circle  Reader  Service  Number  221. 


Scholastic  Writing 
Program 

Scholastic  Software  has  released  an 

outlining  and  writing  software  pro- 
gram for  students  in  grades  6  and 
up.  First  Draft  guides  students  from 
organizing  ideas  to  printing  essays, 
reports,  and  stories.  Help  screens 
explain  each  function  in  the  pro- 
gram. Students  can  print  their  work 
in  outline  form  or  in  report  form. 
Outlines  can  be  saved  as  files  com- 
patible with  The  Bank  Street  Writer 
and  most  other  word  processors. 

First  Draft  is  available  in  school 
and  home  editions  for  the  Apple  II 
series  with  64K,  IBM  PC  with  128K, 
and  Tandy  1000.  The  school  edition 
contains  a  program  disk  and  a  data 
disk,  backup  disks,  a  user  hand- 
book, a  reference  guide,  and  sug- 
gestions for  student  activities.  The 
home  edition  contains  a  program 
disk  and  data  disk  plus  the  user 
handbook. 

Retail  price  for  the  home  edi- 
tion is  $69.95.  The  school  edition 
costs  $87.45,  and  lab  packs  and 
educator  discounts  are  available. 

Scholastic  Software,  730  Broad- 
way, New  York,  NY  10003 
Circle  Reader  Service  Number  222. 


New  Gomes  From  SSI 

Strategic  Simulations  has  an- 
nounced several  new  games  for 
personal  computers.  Battlecruiser 
provides  hours  of  simulated  ship- 
to-ship  combat  on  the  Atlaiitic 
Ocean  during  World  Wars  I  and  II . 
One  or  two  advanced  game  players 
have  the  option  of  fighting  battles 
in  either  war,  using  the  scenarios  on 
the  disk  or  creating  their  own  sce- 
narios. The  WWI  disk  has  four  sce- 
narios with  ship  types  for  Britain 
and  Germany.  The  WWII  disk  has 
ship  types  from  Britain,  France, 
Germany,  and  Italy  with  four  sce- 
narios— Cape  Tuelada,   the   Bis- 


marck chase,  Channel  Dash,  and 
Sirte.  Players  choose  from  158 
classes  of  warships  or  modify  ship 
data  to  create  their  own  warships. 
During  combat,  the  computer  keeps 
track  of  shell  hits,  flooding,  fire, 
and  damage  to  the  ships. 

Battlecruiser  is  available  for 
Apple  Il-series,  Commodore  64/ 
128,  and  Atari  eight-bit  computers. 

Roadivar  2000  is  now  available 
for  the  IBM  PC,  Atari  ST,  Amiga, 
and  Macintosh  computers  in  addi- 
tion to  the  Apple  II  series  and  Com- 
modore  64.  This  futuristic 
adventure  game  centers  on  the  sur- 
vival of  the  fittest.  You  are  a  gang 
leader  who  must  conquer  a  city  by 
collecting  soldiers,  vehicles,  and 
supplies.  Once  in  control,  you  have 
to  contact  eight  scientists  crucial  to 
the  survival  of  the  world  and  return 
them  to  your  research  base.  There 
are  19  vehicle  types  and  an  assort- 
ment of  supplies  to  help  you.  Social 
interaction  with  residents,  wander- 
ers, cannibals,  and  foreign  armies  is 
important  in  your  mission.  The 
playing  field  is  a  geographically  ac- 
curate map  of  the  US  and  parts  of 
Canada  and  Mexico. 

Realms  of  Darkness  is  a  graphic 
adventure  game  in  which  you  use 
command  phrases  to  guide  players 
in  and  out  of  tight  spots.  An 
adventure-mode  parser  lets  you 
talk  directly  to  game  characters 
who  understand  over  100  verbs 
and  nouns. 

Your  goal  is  to  defeat  the 
Rogue  Alliance  in  their  20-level 
dungeon  stronghold  of  Darkness 
using  seven  comrades.  You  have  to 
survive  seven  different  action  sce- 
narios to  win. 

Realms  of  Darkness  provides 
over  150  hours  of  play  for  interme- 
diate players,  A  joystick  is  optional. 

SSI  now  has  a  version  oiPhan- 
tasie  available  for  the  Atari  eight-bit 
machines,  and  Phantasie  11  avail- 
able for  the  Atari  ST.  Phantasie  is  a 
multiple-character  role-playing 
game  where  players  assemble  a 
party  of  one  to  six  characters  to 
search  the  Isle  of  Glenor  for  nine 
rings  to  rid  their  land  of  the  Dark 
Lord.  There  are  eight  races  and  six 
classes  of  characters  to  choose 
from,  and  over  80  types  of  monsters 
to  fight. 

Phantasie  11  takes  place  on  the 
Isle  of  Ferronrah,  In  this  game,  you 
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Computer 

Speak  TO 

strangers? 

Only  if  you  want  It  to 

with  the  Lockheed-CTEX 

GTX  100  Secure  Modem. 

The  GTX-100  secure  modem  is  an 
electronic  barrier  for  your  data  files.  This 
modem  uses  state-of-the-art  technology 
designed  especially  to  protect  your  data 
bases  from  unauthorized 
telecommunication  access.  It  uses  a 
sophisticated  callback/ password 
sequence  to  authenticate  all  callers 
attempting  to  access  your  computer 
files  via  the  tetephone  lines,  if  the 
GTX'100  does  not  "clear"  the  caller, 
computer  access  is  denied.  After 
qualifying  the  caller  and  allowing  him  to 
gain  access  to  your  computer,  the 
GTX-100  then  functions  as  a  standard 
500/1200  baud  intelligent  modem.  And, 
irs  very  user  friendly. 
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$ 


199 


Price 
Now  Only.. 

Act  Fast.  Quantity  Limited 
Add  S5.00  for  shipping  &  handling 

30  DAY  MONEY  BACK  GUARANTEE 

FEATUfl£S: 

•  300/1200  baud  external  full  feature, 
jntelflgent  modem 

•  Interfaces  with  standard  R5'232C 
(terminal  or  CPU  mode) 

•  Compatible  with  major  communications  packages 

•  Call  progress  tone  detection  displayed  on  terminal 

•  Auto-dial.  Auto*answef  with  tone  or 
rotary  pulse  dialing 

•  4  operating  modes.  3  secure  or  conventional 
intelligent  modem  operation 

•  Battery  backup  of  memory 

•  2  year  warranty 

Credit  cird  cuttemer;  cin  order  by  pltone, 

Z4  flours  a  day.  

7  day*  a  waalt.       vrsA' 

Toll  Free:  1-800-523-2445  ex.  125 

In  Pa.  1.800-222-2070  ex.  125 

Outside  the  continental  tJ.S.: 

305-486-6551 


CIRCLE  INTERNATIONAL  TRADING  LTD. 

9  Harmony  Street 

Oanbufy.  CT.  06810 


must  sail  to  the  magical  Isle  to  cap- 
ture and  destroy  the  Dark  Lord's 
powerful  and  evil  Orb. 

Battlecruiser  has  a  suggested 
retail  price  of  $59.95.  Roadwar  2000, 
Realms  of  Darkness,  Phantasie,  and 
Phantasie  11  each  retail  for  $39.95. 

Strategic  Siniulatiotis,  1046  N. 
Rengstorff  Ave.,  Mountain  View,  CA 
94043 
Circle  Reader  Service  Number  223, 

Clip  Art  Package 
For  PaintPro 

Abacus  Software  has  released  a  clip 
art  package  for  PaintPro,  an  ST 
graphics  and  art  program.  PaintPro 
Library  #1  contains  hundreds  of 
symbols  and  features  for  architec- 
ture, electronics,  and  graphic- 
design  uses.  They  can  be  used  in 
the  three  display  resolutions  of  the 
ST.  There  are  also  five  new  fonts 
that  are  GDOS  compatible. 

Suggested  retail  price  for 
PaintPro  Library  #2  is  $29,95. 

Abacus  Software,  P,0,  Box  7219, 
Grand  Rapids,  Ml  49510 
Circle  Reader  Service  Number  224. 


SONY 

3.5"  DISKETTES 

Certtfied  by  Apple  for  Macintosh 

■  Sility  AutQ  Shuttsr  protects  against  fingerprints  and  dusi 
•  Siiely  AutD  Detlgn  is  heat-resistant  and  guards  against 
disk  damage  during  handling 


Price  Per  Diskette 


ss 

DS 

Box 

1.09 

1.59! 

Buik 

1.17 

1.29 

GUARANTEED 
100%  ERROR  FREE 


POLY  PACK  SVr  DISKETTES 

(From  Leading  Mfr,) 
JsjUltt^  ^  ^^^'°  Ef^or  Free 

^^C^JJPi        Lifetime  Warranty 
^3*i^^^       •  Blank  Jackets 
5tdEBchJ'  •  WP  Tabs 

nnnpr*^  •  Envelopes 

Sold  in  Lots  of  100  Only 


DUALITY  PRINTER  RIBBONS 


Apple  Imagewnter S3. 95  ea 

Okidata  80/82/83 51.49  ea 

Epson  LX  80/90 S2  95  ea 

Sold  6/Bo)i  (Minimum) 
Mm.  Order  S25  00  SiH  Contmenial  USA  S4  00^100 
or  fewer  disks  discouni  at  300  Ribbons  S  25  each 
Foreign  orders  APO/FPO,  please  call  Ml  residents  add 
4%  tax  Prices  subject  to  change  without  notice.  Hours 
8  30  AM -7:00  PM 


H 


Precision  Data  Products'" 

P.O.  Box  8367,  Grind  Riipid^.  Ml  49518 
(616)452-3457  •  Michigan  1-800-632-2468 
Outside  Michigan  ] -800-258-0028 


New  Flight  Simulator  11 
Scenery  Disk 

SubLOGIC  has  released  scenery 
disk  number  7  for  the  Commodore 
64  and  128  versions  of  Flight  Simu- 
lator U  and  ]et.  This  disk  covers  the 
East  Coast  of  the  US  from  Washing- 
ton, DC,  to  Key  West,  Florida,  and 
features  many  miles  of  coastlines, 
rivers,  roads,  railroads,  racetracks, 
transmitter  towers  with  blinking 
lights,  and  elevated  bridges.  There 
are  over  130  airports,  including  a 
dozen  military  airports.  The  scen- 
ery includes  the  Washington  Mon- 
ument, White  House,  Capitol 
Building,  Pentagon,  Lincoln  Memo- 
rial, and  a  space  shuttle  on  the 
launch  pad. 

You  must  have  Flight  Simulator 
11  or  Jet  to  use  this  disk. 

Retail  price  is  $19.95. 

SubLOGIC,  713  Edgebrook  Dr., 
Champaign,  IL  61820 

Circle  Reader  Service  Number  225. 

Peripherals.  Software 
From  Progressive 

Progressive  Peripherals  &:  Software 
has  introduced  several  new  products. 

The  Megaboard  2  is  a  two- 
megabyte  RAM-expansion  board 
for  the  Amiga  1000.  The  board, 
which  uses  programmable  array 
logic,  is  4  X  10y2  inches,  so  it  fits 
against  the  Amiga  without  taking 
up  too  much  workspace, 

CLl'Mate  is  a  disk-manage- 
ment utility  program  for  the  Amiga 
that  bypasses  the  CLI  and  Work- 
bench. Using  the  mouse,  you  can 
rename  or  delete  files  and  create 
directories  and  multiple  file  copies. 
There  is  a  print/display  option  so 
you  can  adjust  page  length,  mar- 
gins, and  page  number,  or  print 
with  or  without  line  numbers  in 
ASCII  format.  A  pattern/wildcard 
utility  searches  the  directory  for 
similar  filenames. 

Vizawrite,  for  the  Amiga,  is  a 
word  processing  package  written 
entirely  in  68000  machine  code  for 
speed  and  compactness.  This  is  a 
WYSIWYG  (What  You  See  Is  What 
You  Get)  format,  so  you  can  experi- 
ment with  fonts,  type  styles,  and 
page  layout  before  printing.  Viza- 
write supports  all  Amiga  propor- 
tional and  fixed-width  fonts,  bold, 
underline,  italic,  superscript,  sub- 
script, and  most  international 
characters. 


With  Vizawrite  you  can  load 
files  from  other  packages^ — includ- 
ing graphics,  text,  or  IFF-format  pic- 
tures— into  one  of  the  windows 
and  incorporate  them  into  your 
document.  There's  a  glossary  so 
you  can  define  commonly  used 
phrases  and  insert  them  into  the 
text.  And  the  find-and-replace 
function  searches  for  a  defined 
string  and  replaces  it  with  another. 

Vizazorite  requires  256K  mem- 
ory. It  has  Workbench  1,2  installed 
on  the  disk  and  requires  Kickstart 
1.2  or  greater.  Recommended  print- 
ers are  Hewlett-Packard  LaserJet, 
NEC  Pinwriter  P6/P7,  Juki  6100 
daisywheel,  and  Diablo-compatible 
printers.  Vizawrite  supports  text 
and  graphics  created  with  Deluxe- 
Paint,  Graphicraft,  Textcraft,  and 
other  Amiga  software  packages. 

Retail  price:  $599.95  for  the 
MegaBoard  2;  $39.95  for  CLl-Mate; 
and  $149.95  for  Vizazorite. 
Progressive  Peripherals  &  Software, 
464  Kalamath  St.,  Denver,  CO  80204 
Circle  Reader  Service  Number  226, 


Football  For  The  PC 

One  or  two  players  control  the  field 
in  this  gridiron  simulation  from 
SubLOGIC.  With  Football,  you 
choose  the  team  and  call  the  plays — 
both  offensive  and  defensive — and 
then  participate  on  the  field. 

Each  of  your  football  players 
has  different  physical  attributes  and 
performance  characteristics  which 
you  can  adjust  to  fit  your  needs. 

Football  requires  an  IBM  PC, 
PCjr,  or  PC-compatible  with  256K 
memory,  a  color  graphics  adapter 
card  or  the  equivalent,  and  a  com- 
posite-color or  RGB  monitor.  The 
PCjr  requires  a  joystick  for  the  two- 
player  mode. 

Retail  price  is  $39.95.  Versions 
for  other  computers  should  be  avail- 
able by  the  time  you  read  this. 

SubLOGIC,  713  Edgebrook  Dr., 
Champaign,  IL  61820 

Circle  Reader  Service  Number  227. 


Guessing  Game 

Buzzword  is  a  new  game  with  200 
categories  in  levels  from  bright  to 
gifted.  Players  use  clues  to  guess 
the  words  and  increase  their  vocab- 
ulary in  the  process.  It's  available 
for  the  Atari  eight-bit.  Commodore 
64,   and   IBM   PC   computers   for 
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Software  Discounters   i^o<.a^^ 

Of    /VillwriCS         •Free  shipping  on  orders  over 

For  Orders  Only— 1-800-225-7638    $100  In  continental  USA 

PA  Orders— 1  -800-223-7784  •  No  surcharge  for  VISA/MasterCard 

Customer  Service  412-361-5291     •Your  card  is  not  charged  until  we  ship 


YOUR  ENTERTAINMENT  SOFTWARE  SPECIALIST! 


IBM  SOFTWARE 


ACCOLADE 


MeantSQDif 

$30 

Mean  18  Famous 

CtHiraa  Disk-  -  - . 

$14 

ACTtVtStON 

AMtrEgo^MofF) 

,130 

Hacktr2. 

..$24 

MualcStudIo, ... 

..$30 

ARTWORX 

Bridge  4.0  

$16 

Strip  Poker, 

.$25 

OstaDisk»lFemaia.Sl4 

DataDisk#2Msia. 

$14 

OataDJsk#3Femaie.$14 

AVALON  HILL 

Super  Bowl  Sunday 

.$21 

S.B.S.  Champs  Disk 

.$14 

S.B.S/asTesmOlsk.SU 

Portal 

$27 

BRODERBUND 

Ancient  Ad  o(Wsr 

.$27 

Carn^en  Ssndlago 

fWofid^ 

$25 

Karsteka 

$21 

Print  Shop  . 

$36 

P.S.  Companion  . , 

.$32 

P.S.  Graphics 

Libfary  #1  or  #2  $21  Ea. 

Toy  Shop 

$44 

CENTRAL  POINT 

CODV  2           

$23 

PCToois  

$23 

DATA  EAST 

Commando 

..$24 

Tag  Team  Wrastltno.S24 

ELECTRONIC  ARTS 

Software  Classic  S&rl^s: 

Archon  

$986 

Mind  Mirror 

$9.ee 

Muflic  Const.  Sat 

$9.68 

Ona^on-Ona  

$9.88 

Pintjsti  Const  Sat 

$9.88 

$9.88 

Super  Bouklef  Dash 

$9.88 

ELECTRONIC  ARTS 

Amnesia. 

$29 

ChessmBBter2000 

..$26 

QrandSiam  Bridge 

$39 

Murder  Party 

$26 

Scrabble  

$26 

Stertieat  l  

..$32 

Starllighl 

.$32 

World  Tour  Goil   , 

..$32 

EPYX 

Create  A  Calendar 

..$19 

Destroyer 

$24 

Summer  Qamea  2 

$24 

World  Games  

$24 

World  Karate  Champ.  119 

GAMESTAR 

Champ.  Basebali 

$24 

Champ.  Basketbsii 

..$24 

GFLCh.Footbsi]   . 

..$24 

HITECH  EXPRESSIONS 

Awsrd  Wsre 

$9.88 

Card  Ware 

$6.B8 

Haan  Ware 

$6.66 

PertyWare 

$0.66 

INFOCOM 

Baiiyhoo  

..$24 

Bureaucracy $24 

Hitchhikers  Guide  ..$24 
Hoilywood  Hljlnx  ...$24 
Leather  Goddesses  .$24 

Moonmist $24 

Zorkl  ,, , $24 

Zork  Trilogy $44 

MICROLBAGUE 

Basebaii $24 

•Bos'  SctjreiStats 

Compear $16 

'General  Mgr^Owner$24 

•1985  Team  Disk $12 

M966  Team  Disk $12 

'Addon  programsl 
MJCROPROSE 
F-1 5  Strike  Eagie.  .  .  .$21 

Silent  Service $21 

MINDSCAPE 
American  Chailenga . $24 
Balance  of  Power  . .  .$30 

Bop  &  Wrestle $19 

Defender  of  the  Crown  $24 
Inflitralor  .,.....,.  .$19 

Sub  Mission  .......$24 

SSI 

Battle  of  Anttetam  .  $30 

Gettysburg .$36 

Kampfgruppe  .....  .$36 

Rings  of  Ziifin $24 

Rofldwar2D00 $24 

Shard  of  Spring  ....  .$24 
SIERRA 

Black  Cauldron $24 

King's  Quest 

1.2.  or  3 $32  Ea. 

Space  Quest $30 

SPECTRUM  HOLOBYTE 

Gsto $24 

Ortlter $27 

Wilderness       $30 

SPRiNGBOARD 
Certificate  Maker  .  ..$36 

CM.  Library  #1   $21 

Newsroom $36 

Newsroom  Pro $69 

N.R.CilpArt#1 $1S 

N.R.CiipArt#2 $24 

N.R.CiipAnff3 $19 

P.S.  Graphics 

Expander $24 

SLTBLOGIC 

Football $28 

Jet $32 

TELARim 

Amazon $9,86 

Dragonworid   $9.68 

Fahrenheit  451...  $9.68 

Nine  Princes ,$9.86 

Perry  Mason .  .  $9.86 

Randsrvoui $9.66 

UNISON  WORLD 

htewsmsster $59 

PrintmaeterPlua.  . .  .$36 
Art  Gallery  1  or2.$10Ea. 
VALUE  TIME 
Ad  Library  lor  2  .$e.86Es. 
Calsndsrs  A 

Stationary.  ....  $6.66 
Greeting  Cards  .  .  .  $6.66 
Signs  &  Banners   ..$6.86 


COMMODORE  64  &  128 


ACCESS 

Tenth  Frame $25 

World  CIssa 

Leader  Board.  .  .  .  .$25 
ACCOLADE 

Aceof  Acea $10 

Comics $10 

Fight  Night $10 

Hardball $10 

Killed  Until  Deed....  $10 
ACTION  SOFT 

Up  Periscope! $19 

ACTIVIStON 

Aliens $23 

Gsmemakar. $25 

uamemaker  Library  Disks 

Sports  orScLFl  $14  Ea. 
GreetJrig  Card  Maker  .$23 

Hacker2,...,, $23 

Music  Studio.....    .$23 

Porlsl .$25 

Shanghai .$23 

Transformer*  $23 

ARTWORX 

Brldgs4.0   $16 

Highland  Games  ..$0.88 

Police  Cadet $0.88 

Strip  Poker $21 

Data  Disk  N1  Female  $14 
Data  Disk  1^2  Male  $14 
Data  Disk  N3  Female. $14 

Thai  Boxing  $9.88 

AVALON  HILL 

Super  Sunday $21 

S.B.S.  1965  Team  Disk  $14 
S.B.S.  Champa  Disk  $14 
AV  ANT  AGE 

Spyva.Spy1&2  $9.86 
BERKELEY  SOFTWORKS 

GE0S64   $39 

GEOS  addons  Call 

BRODERBUND 

Print  Shop  .  $26 

P.S.  Graphics  Library 

(t1.#2or#3..  .  .$18Ea. 

Toy  Shop $30 

DATA  EAST 

Breakthru. $23 

Commando  ....,,.  .$23 

Express  Raider $23 

Iksrl  Wsrrlora $23 

Tsg  Team  Wrestling    $23 

ELECTRONIC  ARTS 
Sottwara  Classic  Series; 
Archon  2:  Adept.  .$9.88 
Mean  of  Africa  .  .  ..$9.68 
Mail  Order  MomtSfa  $9.88 
Movie  Msker  $0.88 

Music  Const.  Sat      $0.68 

OneonOne $0.86 

PInball  Const.  Set  $0.88 
Seven  Cities  Gold    $0.88 

Skyfox $0.88 

Supef  Boukler  Oash  .  $9.66 
Touchdown  Football  $9.66 
UltlmsteWlzsrd  .  .   $9.66 
ELECTRONIC  ARTS 
America's  Cup  Sailing  $23 

Arctic  Fox  $23 

Bard's  Tale  1  or  2  $26  Ea. 


Chessmaster2000  ..$26 

Marble  Madneaa $23 

Pegaaua $25 

Star  Fleet  1   $26 

World  Tour  Golf  .    ..$25 

EPYX 

Champ.  Wreatllng.  $23 

Create  A  Calendar...  $19 

Destroyer $23 

Fast  Load  (carl).  .$23 
Sub  Battle  Simulator  $25 
Summer  Games  2    .  $23 

Super  Cycle .  .$23 

World  Games   $23 

FIREBIRD 

Elite $19 

Stargtlder $25 

ThePewn $25 

Tracker ............ $25 

GAMESTAR 

Champ.  Baseball.    ..$23 

Chsmp.  Basketbsii  ..$23 

G FL  C hamp.  Footbal I $23 

INFOCOM 

Bureaucracy  126 $23 

HItchfilker's  Guide..  $23 
Hollywood  Hljlnx  .  .  .$23 
Leather  Goddesses  .$23 

Zork  Trilogy .$39 

MASTERTRONIC 

Bounder $6.88 

Captain  Zap $6.88 

Knight  Qames $6.86 

Nlnja $6.88 

Pro  Golf $6.88 

Shogun  ...... $6.88 

Vegas  Poker  & 

Blackjack $6.66 

MICROPROSE 

Gunshlp $23 

Silent  Service  ...    .   $23 

MINDSCAPE 

Amerlcsn  Challenge  $10 

Bop  &  Wrestle $10 

Defender  of  the  Crown  $25 

Fist S19 

Superstar 

Ice  Hockey $23 

UchlMata  $10 

ORIGIN 

Autoduel $32 

Moebtua ...$26 

Ultima  4 $30 

SPRINGBOARD 
Certificate  Maker  ...$32 

CM.  Library  #1   .$23 

Newsroom $32 

N.fl,  Clip  Art  #1  or  #3  $19 

N.R.CllpAn#2 $25 

SSI 

Gettysburg   $37 

Phentaale2 $25 

Rings  of  Zlllln  ....  .$25 

Shard  ol  Spring $25 

Wizard's  Crown $25 

SUBLOGIC 

Baseball $32 

Flight  Simulator  2  .  .  .$32 
F.S.  Sc«nery  Disks  $14  Ea. 

Football $26 

Jet  $26 


APPLE  II  SERIES 


A CCESS 

TripiePack:  BH1,  BH2, 

Raid  Over  Moscow  $14 
World  CIsss 

Leader  Board .....  $25 
ACCOLADE 

Fight  Night $19 

Hardball $19 

ACTiVISION 
Qamemaker  Library  Disks: 

Scl-Fl .....$16 

Sports $16 

Gamemaker $30 

Greeting  Card  Maker  $24 

Hacker  2 $24 

Murder  on  the 

Mlssisslpp)  $24 

Music  Studio  QS....  $49 

Pslnh(vorks  OS $47 

Portal $27 

Shanghai ...$24 

Shanghai  QS $29 

Tasa  Times  GS $27 

ARTWORX 

Bridge  4.0   $16 

International  Hockey  $19 

Strip  Poker... $10 

Data  Disk  #1(Femate}$14 
Data  Disk  #2  (Male)  $14 
AVALON  HILL 

Dr.  Ruth $10 

Super  Sunday $21 

BANTAM 

Walt  Disney  Series: 

Csrd8iPsrtyShop.$24 

Comic  Strip  Maker  $24 
BAUDVILLE 

Award  Maker $24 

Video  Vegas  $19 

BRODERBUND 

Airheart $21 

Animate  {128K) $42 

Carmen  San  Diego 

USA S27 

Worid $24 

Dazzle  Draw  (126K}..  $34 

Fsntevlftlon $30 

Kareteka   $21 

Print  Shop  {Enhanced)  $27 
Print  Shop  Companion  $23 
P.S.  Graphics  Library 

N1,2or3.  ....  .$UEa. 

Toy  Shop $36 

CENTRAL  POINT 

Copy 2  ..,,,. $21 

DATA  EAST 
Commando  .......  .$21 

Tag  Team  Wrestling   $21 
ELECTRONIC  ARTS 
Age  of  Adventure  . .  $9.66 

Amnesia ....... $20 

Archon     .  .  , $9.88 

Archon 2: Adept.  ..$9.68 

Articlox $26 

Bard'aTale1or2 $2S 

Battlelront ...$25 

Carriers  at  War $30 

Chessmastsr2000  ..$29 
Deluxe  Paint  II  QS.  ..$65 
D.  Paint  Art  #1QS  ...$19 
D.  Paint  Art  N2GS  ...$19 


Europe  Ablaze .  .$30 

Lords  of  Conquest  ..$26 
Make  Your  Own 

Murder  Party $26 

Marble  Madnaaa....  $23 

Mind  Mirror. $9.88 

MoebluB... .$36 

Movie  Maker $0.86 

Music  Conat.  Set  .  .$0.88 
Music  Conat.  Set  GS  $32 

Ogre .$25 

One-on-One $0.88 

Pegasus $26 

PInbsli  Const.  Set  $9.66 
Russis  (The  Grvst  War)  $26 

Scrabble $26 

Seven  Cities  of  Gold .  $9.66 

Skyfox..... $9.66 

Star  Fleet  1   $32 

Super  Boulder  Dash  .  S9M 

Ultima  4 $36 

EPYX 

Champ.  Wrestling  . .  $23 
Create  A  Calendar. .  $19 
Summer  Games  2  . ,  .$23 

Winter  Games .$23 

World  Games   $23 

GAMESTAR 

Champ.  Baseball $24 

Champ.  Basketball  .  .$24 
Champ.  Football . . .  .$24 
HI-TECH  EXPRESSIONS 
Awsrd  Wsre     ..    ..$0.66 

Card  Ware $6.66 

Heart  Ware $6.66 

Party  Wsre $0.66 

INFOCOM 

Bureaucracy  - $24 

Hitchhiker's  Guide.  .$24 
Hollywood  Hijlnx  .  .$24 
Leather  Goddesses    $24 

Moonmlat  $24 

Trinity $24 

Zork  Trilogy $44 

MICROLEAGUE 

Baseball $24 

Box  Score  Stats  ...  .$14 
General  Mgr./Owner .  $24 
1986Tesm  Disk.  .  .  .  .$12 
MICROPROSE 

F-1 5  Strike  Eegle $21 

Silent  Service  , $21 

MINDSCAPE 

American  Chsllenge .  $24 

Bop  &  Wrestle $19 

inflitralor      $19 

SSI 

Gettysburg   $35 

Phantasie2  ...    ....$23 

Rings  of  Zlllln $23 

Roadwar2000 $23 

Shsrd  ol  Spring $23 

Wizard's  Crown $23 

SPRINGBOARD 
Certificate  Maker  ...$20 
CM.  Library  Vol  1...  $21 

Newsroom $32 

N.R.  Clip  Art  #1  or*l3  $17 

N.R.CllpArt#2 $23 

VIP  TECHNOLOGIES 
VlPProteas1onstQS$179 


P.O.  BOX  111327-DEPT.  CP— BLAWNOX,  PA  15238 


•Pltata  Raad  Tha  Following  Ordaring  Terms  A  Conditions  Caralutly  Batora  Placing  Your  Ordan  Orders  with  cashlars  chack  or  monaf  ordar  shippad  Immadiataly  on  In 
stock  Hems.  Persons/  A  Company  checks,  allow  3  weeks  claaranca.  No  C.O.O.'sf  Shipping:  Contlnantal  U.S,4.— Orders  under  $100  add  $3;  traa  shipping  on  ordara  o¥ar 
S100,  4K,  HI,  FPO,  APO—Bdd  $5  on  alt  orders.  Canada  A  Puarlo  Rlco^add  $10  on  all  ordars.  Sorry,  no  other  Intamatlonsl  orders  accepted  I  PA  raaldants  add  6%  aalas 
tax  on  iha  total  amount  of  ordar  Including  shipping  chargast  REASONS  FOR  CALLING  CUSTOMER  SERVICE— 4123615291  (V  Status  ol  order  or  back  order  f2;  If  any 
merchandlae  purchased  within  60  days  from  S.D.  of  A.  is  defective,  plesse  call  tor  a  retunn  authorization  number.  D«fectlve  merchandise  will  be  replaced  with  the  same 
merchandiie  only.  Other  returns  subject  to  a  15%  restocking  chsrge.  After  00  days  pleaae  refer  to  the  manufacturers  warranty  included  with  the  merchandise  4  return 
directly  to  the  msnuf  acturer.  Customsr  sarvlca  will  not  accept  collact  call*  or  calls  on  S.D.  OF  A,'s  9009  ordar  linasl  Hsve  you  seen  our  on  line  catalog  of  1000  soltware 
titles  for  Commodore,  Atari,  Apple,  IBM  end  Amiga?  It's  on  CompuServe's  Elactrofitc  MallHust  type  GO  SDA  and  shopping  for  software  will  never  be  the  same  egalnl 
HOURS:  Mon.-FrL  94M-S:30  PM,  Sat  WAM-4PM  Eaatarn  TIma.  Bacausa  this  ad  had  to  ba  writtan  2-3  mos.  before  It  was  published,  prlca*  *  trallBblltty  ara  aubfact  to 
changat  


$39.95.   The   Atari   ST   version   is 
$42.95. 

Buzzword  Game  Company,  P.O. 
Box  440747,  Aurora,  CO  80044 
Circle  Reader  Service  Number  228. 


PageMaker  2.0 

Aldus  has  released  a  new  Page- 
Maker version  for  the  Macintosh 
that  features  dictionary-based  hy- 
phenation, kerning,  interactive  fac- 
ing pages,  and  support  for  longer 
documents.  It  will  also  send  edited 
files  back  to  Microsoft  Word  3M, 

PageMaker  2,0  retails  for  $75  to 
registered  users  who  bought  a  pre- 
vious version  before  September  3, 
1986,  and  $37.50  for  subscribers  to 
Aldus'  Extended  Technical  Support 
Service.  Anyone  who  bought  Page- 


SOLARSIM. 

by 

Jamei  Turss 

The  Solar  System 
Simulation  Program 

SOLAMStM  it  a.  dyniimic  3-D  color  frflphics  iimuUUon 
of  our  solar  lysum  and  n*arbv  sUr  tystami.  It  simul- 
aUi  tht  piaii«U,  250  atUroiaa  aad  comau  (includiaf 
HalUy'i),  aad  ovar  800  stars,  nebula  aad  faiaxitt. 
And,  ona  of  tht  moit  uniant  featurac  of  SOLAMSIM  it 
that  3^  can  add  plaaatoia*  and  stars.  Via w  and  idan- 
tify  tni'ston  and  loUr  syitam  from  a  ay  point  on 
Earth  or  in  spaca,  on  any  date.  For  an  intonsting 
twiit,  plact  yoursalf  on  Hallty's  Comat  during  iti 
1985-fiS  trak  paat  tba  sun  aad  viaw  tha  Solar  Systara 
ai  )t  pasMcby! 

"SOLAMSIM  L$  ^n  . .  .  //  u  04  rnueh  a  learning  t^tptH' 
tnce  as  a  pletuurg  trip."  Tl  Computing 

"ThiM  PC  program  u  a  real  getn.' i^fry  Pournelle.  8YTI 


SyiUh 


ONLY  S2S.55T 

!  IBM  PC/XT*-/AT:  128K,  CGA 
TI  Pro:  259K^  3-plaiia  gx-aphicf 
Z-IOQ:  192K,3-pI«]iagraphlca 
Sea  your  local  softwara  daalar,  or  send  chack, 
monoy  ordar  of  COD  ordari  to  INTERSTEU  P.O. 
Box  57825,  W^htUr,  TX  77598,  iHH  333-3909, 
Plaaaa  add  |3  for  ihippliig.    la  Texaa,  add  aalaa 
Us. 

Credit  card  ordart: 
« 800)  622-1070  iNatl> 
(800*942-7317  (ILL 


tnteritel 


SECURITY 
KEYS 


Programmers)  Protect  your 
software  with  the  most 
effective  system  available. 
we  manufacture  "dongle" 
keys  In  any  quantity  at  low 
cost  Available  for  C64,  C128. 
Amiga  and  ST.  Cail  or  write  for 
more  information  or  send 
$5.00  for  a  unique  sample  to: 

DflTflLDC 


Manufacturing  Co 

RO.  BOX  950  St.  Joseph,  Ml  49085 
(616)  982-1786 


Maker  after  September  3.  1986  will 
receive  version  2.0  free. 

Aldus,  411  First  Ave.  S.,  Ste.  200, 
: cattle,  ]NA  98104 
Circle  Reader  Service  Number  229. 


New  Line-Up 
From  MindscQpe 

Mindscape  has  released  several 
new  products.  The  educational  di- 
vision is  now  distributing  the  Un- 
derstanding Math  Series,  a 
collection  of  five  programs  that 
teach  basic  math  skills.  The  pro- 
grams can  be  customized  to  meet 
the  needs  of  each  student  in  grades 
1  through  6. 

The  programs  in  the  series  are 
Learning  Place  Values,  Learning  Ad- 
dition, Learning  Subtraction,  Learn- 
ing Multiplication,  and  Learning 
Divison.  The  series  is  available  for 
the  IBM  PC  Tandy  1000,  and  the 
Apple  II  family  with  128K. 

The  retail  price  for  the  Under- 
standing Math  Series  is  $299,95. 
Each  title  is  available  individually 
for  $69,95, 

Teachers  and  students  can  cre- 
ate crossword  puzzles  for  math,  sci- 
ence, social  studies,  language  arts, 
reading,  and  spelling  drills  with 
Crossword  Magic  Puzzle  Disks.  The 
disks  work  with  Crossword  Magic 
and  are  appropriate  for  grades  5 
through  8,  There  are  six  disks  in  the 
series,  and  each  disk  has  20  puzzles 
plus  printouts  of  the  puzzles. 

Crossword  Magic  Puzzle  Disks 
are  available  fox  Apple  Il-series 
computers  with  48K.  You  will  need 
Crossword  Magic  to  use  the  Puzzle 
Disks. 

The  series  retails  for  $59.95 
and  individual  disks  are  $14.95 
each.  Crossword  Magic  retails  for 
$59,95,  or  can  you  buy  Crossword 
Magic  and  the  series  of  Puzzle  Disks 
for  $119.95. 

Mindscape's  Quest  for  Files  se- 
ries (in  social  studies  and  science) 
promote  research  and  critical  think- 
ing for  students  in  grades  7  through 
12.  In  each  subject,  the  student 
must  compare,  contrast,  and  com- 
bine facts  from  the  database  to  de- 
velop  generalizations  and 
conclusions.  An  online  tutorial  and 
file  manager  helps  to  access  the 
database. 

The  Quest  for  Files:  Social 
Studies  series  includes  Families  of 


the  World:  The  Melting  Pot;  The 
American  Presidency:  Hail  to  the 
Chief;  and  The  First  U.S,  Congress: 
Dawn's  Early  Light.  Titles  in  the 
Quest  for  Files:  Science  series  are 
Rocks  and  Minerals:  The  Upper 
Crust;  Elements,  Compounds,  and 
Mixtures:  A  Matter  of  Mystery;  and 
Nutrition:  Food,  Glorious  Food. 

Each  of  the  series  is  available 
for  the  Apple  II  family  with  64K, 
the  IBM  PC  or  PCjr,  and  the  Tandy 
1000  for  $125,95.  Individual  titles 
are  priced  at  $49,95  each. 

Two  other  Mindscape  pack- 
ages— Mindscape's  Reading  Work- 
shop and  Social  Studies  Explorer 
Series — are  now  available  for  MS- 
DOS  computers.  The  Reading 
Workshop  provides  students  ten 
activities  to  provide  practice  in 
reading  comprehension,  vocabu- 
lary building,  sequencing,  and  oth- 
er reading  and  language  arts  skills. 
It  includes  selections  from  fairy 
tales,  adventure  stories,  historical 
fiction,  and  short  stories  from  au- 
thors such  as  Poe,  Twain,  Melville, 
and  Verne, 

This  series  has  six  complete 
packages,  one  for  each  reading  lev- 
el from  4  to  9.  Every  package  con- 
tains three  story  disks  and  backups, 
a  Toolkit  disk,  a  teacher's  manual,  a 
printout  of  each  story,  and  refer- 
ence cards  for  students. 

The  Social  Studies  Explorer  Se- 
ries stimulates  students  to  think 
critically  and  determine  relevant 
facts  during  their  online  travels. 
There  are  American  History  and 
World  Geography  sets  for  students  to 
visit;  the  object  is  for  students  to  ask 
questions  and  use  the  answers  to 
determine  where  they  are.  Then 
they  have  to  identify  the  clues  they 
used  to  reach  their  conclusions. 

Mindscape's  Reading  Work- 
shop and  Social  Studies  Explorer 
Series  are  both  available  for  the 
IBM  PC  or  PCjr,  Tandy  1000,  and 
Apple  II  computers.  The  Reading 
Workshop  series  costs  $150  for 
each  level,  $425  for  a  set  of  three 
levels,  and  $375  for  a  lab  pack.  The 
American  History  and  World  Geogra- 
phy sets  each  cost  $150.  Each  title 
within  a  set  costs  $39.95,  and  lab 
packs  are  $100  per  title, 

Mindscape,   3444  Dundee  Rd„ 
Northbrook,  IL  60062 
Circle  Reader  Service  Number  230, 


COMB 


FRANKLIN  ACE  2200  PERSONAL  COMPUTER 


For  Personal,  Business^ 
And  Educational  Computing! 

The  Franklin  ACE  2200  Personal  Computer  is  an 
exceptional  value  in  microcomputers.  It's  easy  to 
operate  and  has  the  advanced  design  features, 
power,  and  versatility  for  a  variety  of  computing 
applications  in  the  home,  school,  or  small  business. 
The  Franklin  Ace  2200  is  compatible  with  two  of  the 
most  widely  used  computers  today,  the  Apple®  lie 
and  He.  This  model  has  been  thoroughly  recondi- 
tioned by  experienced  technicians  to  a  condition  as 
good  or  better  than  new.  Now  you  can  purchase  tt  at 
a  LOW  liquidation  price! 

Look  at  All  These  Advanced  Features: 

9  Apple®  II  Compatibility:  Includes  features  of  the 
Apple®  lie  such  as  128K  RAM  and  80  column 
video  display  functions. 

•  Additional  64K  Memory:  Additional  bank- 
switched  memory,  also  known  as  '1le  text  card"  or 
"We  extended  text  card"  capability. 

•  12"  Diagonal  Monochrome  Monitor  Features 
an  80  character  x  24  line  display  on  a  fiat,  non- 
glare,  green  phosphor  screen.  Tilt/ swivel  base  for 
easy,  no-strain  viewing. 

•  Double  High  Resolution  Display;  Allows  display 
of  560  x  192  pixels  on  the  screen,  the  same  as  in 
the  Applet  lie. 

•  90-Key  Detachable  Keyboard:  Includes  the 
open  and  closed  "F"  keys  needed  for  many 
Apple®  software  programs,  plus  extra  features 
such  as  12  programmable  function  keys  and  switch- 
able  command  keys  on  the  numeric  keypad. 

•  Advanced  Built-in  Software:  Includes  Franklin's 
own  Disk  Operating  System,  Franklin  DOS  2,  and 
BASIC  programming  language,  Franklin  BASIC. 
Highly  compatible  with  programs  written  for  the 
Apple-*  IK,  He,  and  fic. 

•  Printer  Interface  Hardware  and  Software: 
For  four  of  the  most  popular  printers,  including 
graphics  printing  capability.  Also  Includes  soft- 
ware controls  for  many  printer  functions. 

•  6SSC02  Microprocessor:  The  main  processor 
on  the  Franklin  incorporates  this  new  chip,  which 
is  available  as  an  upgrade  for  the  Apple®  lie.  It 
offers  extra  power  and  a  number  of  additional 
commands  for  experienced  programmers. 

•  Built-in,  Compact,  Half-Height  Dual  Disk 
Drives:  Capable  of  using  diskettes  in  40  track 
format  in  addition  to  those  in  standard  Apple®  35 
track  format.  This  option  lets  you  increase  diskette 
storage  capacity  by  15%  while  maintaining  the 
ability  to  use  standard  Apple®  diskettes. 

•  Expansion  Slots:  Include  parallel  printer  port 
and  joystick/game  port,  which  allow  for  easy 
addition  of  peripherals. 


Dual  Disk  Drive 
IVIodel  2200 


THE  FRANKLIN  ACE  2200... 

Simpie  enough  to  be  a  "first"  computer,  yet  powerful  enough  to  meet 
the  advanced  needs  of  experienced  users.  Whether  you're  a 
professional  person,  business  executive,  homemaker,  or  college 
student,  you'll  find  the  Franklin  Ace  2200  an  excellent  choice  for  all 
your  computing  needs. 


Reconditioned  with  90-Day  Limited  Factory  Warranty. 


Original 


Ust  Price U138.00 


$699 


Liquidation  Priced  At  Only 

Item  H-2424-71 07-055  Shipping,  handling;  SI 5.00  each 


Toil-Free:  1-800-328-0609 


Credit  Card  customers  can  order 

by  phone.  24  hrs.  a  day.  7  days  a  week. 


kVS^ 

^^3 

SEND  TO:  Item  H-2424 

C.O.M.B.  Direct  Marketing  Corp. 

1405  Xenium  Lane  N/Minneapolis,  MM  55441-4494 

Send Franklin  Computer(s}  Item  H-2424-71 07-055  at  S699  each,  plus 

315  each  for  ship,  handling,  (Minnesota  residents  add  6%  sales  tax.  Sorry, 

no  C.O.D.  orders,) 

D  My  check  or  money  order  is  enclosed.  (No  delays  in  processing 

orders  pasd  by  check) 
Charge:  □  VISA"  D  MasterCard.  D  Discover ^^  D  American  Express* 
Acct  No ^Exp L 


PLEASE  PRINT  CLEARLY 

Name  

Address   

City  

Slate    


Phone ! 

Sign  Here 


Sates  ouiside  the  48  corrtiguous  slates  are  subject  lo  special  condttiofis. 
Please  cat  or  write  to  inquire. 


COMB  CO  M  B  C  O  M  B  C  O  M  B  C  O  M  B  C  O  M  B  C  O  M  B 


PC  coiwrwriBtE 


COMMODORE  PC-10 

INCLUDES 


512  K  RAM 

360K  D/S  DRIVE 

CGA  BOARD 

1  YEAR  WARRANTY 


PARALLEL  &  SERIAL  I/O 
GW  BASIC  AND  MS  DOS 
SIDEKICK  BY    ejr-VA 
BORLAND         ^O/V 


BLUE  CHIP  PC 

INCLUDES 

512K  RAM  PARALLEL  &  SERIAL  I/O 

360K  D/S  DRIVE  GW  BASIC  AND  MS  DOS 

CGA  BOARD  6  EXPANSION  SLOTS 

CALL  FOR  LATEST  PRICE 


PC  COMPATIBLE  EXTRAS 

MS  DOS  3.2  &  GW  BASJC .599,95 

BLUE  CHIP  360K  DtSK  DRIVE S129.00 

BLUE  CHIP  TTL  GREEN  MONITOR.  . ,  .$99.95 

2UCKERBOARDS  fMade  In  USAI 

Clock   Calendar 49.95 

Z56K  E)(panslon  Board 79.fiS 

Mono  Graphics  BD  (Hercules  Comp.) .  .  .  99.95 

Color  Graphics  8D  (CGA) 99.95 

(Alf  ZUCKEftBOARDS  Havi?  a  2  Year  Warranty) 


PffjiSiTEf?  EXTHAVAGMiZA 


PANASONIC 

Panasonic  10B0I 199 

Panasonic  10911 2S9 

Panasonic  10921  . .  .  .349 

Panasonic  3131 279 

Panasonic  3151  .....  409 
Panasonic  1592  ,  . ,  .419 
Panasonic  1595   .  . .  .539 


OKIOATA 

Okldata120 215 

Okldata  102 249 

Okldata  192+   369 

Okldata  193+ ..559 

Okldata  292E 449 

Okldata  293e 599 


EPSON 

LXS5 219 

FX86E 399 

EX  800 479 

EX  1000. 629 

FX286E. 569 

LQ800 S19 

LQ  1OO0 729 

LO2S00 1149 


STAR  MfCRONrCS 

NX-IO Call 

NL-IO Call 

NP-10 169 

NX-IS... .339 

ND.15   449 

NR.15 539 

Powertype 189 

NB24rfS{24  Wire)  .  .Call 


SPEC\AL  PURCHASE 

CANON  A-60  18  PIN  PRINTER 

•200  CPS  Draft  -Font  Cartridges 

•100  CPS  NLQ  •Optional  SheeX  Feeder 

•34  CPS  NLQ+  •Either  Epson  Or  IBM 

•Graphics  &  NLQ*  On  Compatible 
Same  Page                _ 

$349 


OKIMATE  20  & 
PLUG  AND  PRJN7 

Interfaces  Available  For 
AMIGA  •ATARI  ST*  IBM  • 
APPLE2+/2E*  064/128 

$199 
FREE  SHIPPING  IN 

CONTINENTAL  USA 


commoDom  mfna  super  printer  pacicaises 


C-64/12a  PACKAGE  #1 

•NX-10  Printer 

•Xctec  Super  GraphJc  Interface 
•2  Extra  NX-10  Ribbon 
NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continental  USA 
S279 


C-64/128  PACKAGE  #2 

•Panasonic  10801  Printer 
*Xetec  Super  Graphic  Interface 
•1  Extra  Rbbon 

NO  SURCHARGES  On  Credit  Carxla 
FREE  SHIPPING  In  Continental  USA 
$279 


C-&4/128  PACKAGE  #3 
*Pana8onlc  109lt  Printer 
•Xetec  Super  Graphic  interface 
•1  Extra  Ribboni 

NO  SURCHARGES  On  Credit  Cardt 
FREE  SKIPPING  In  ConiJnental  USA 
$339 


C-64/128  PACKAGE  #4 

•Setkosha  SP10D0VC  Printer 
•BuMl-fn  Graphics  Interface 
NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  in  Continental  USA 
S179 


ATARI  PACKAGE  #1 
•NX-10  Printer 

•Supra  11S0  Interface 
*2  Extra  Ribbons 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPtNG  (n  Continental  USA 
S269 


ATARI  PACKAGE  #2 

•Panasonic  loaoi  Prinier 
•Supra  1150  interfece 
•  1  Extra  Ribbon 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continoniai  USA 
S269 


ATARI  PACKAGE  #3 

•Panasonic  10911  Printer 
•Supra  1150  interface 
•1  Extra  Ribbon 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  in  Continental  USA 
$329 


ATARr  PACKAGE  #4 

•Atari  T027  Printer 
•AtariwrKer  Plus 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPrNG  In  Continental  USA 
$129 


ATARI  130XE  PACKAGE 

•Atari  130  XE  ComputepHome  Filing  Manager 

•Atari  1050  Disk  Drive   •Defender 

•Atari  1027  Printer         •MHIfpede 

•Alariwrlter  Pius  »Pain( 

NO  SURCHARGES  On  Credit  Cards 

FREE  SHIPPING  In  Continental  USA 

$399 
COMMODORE  128  PACKAGE  #1 
•Commodore  128  Computer 
•1571  Disk  Drive 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continental  USA 
S489      (Limited  1o  first  100  orders) 


COMMODORE  64C  PACKAGE 

•Commodore  64C  Computer      •1802C  i^onltor 
•1S41C  Disk  Drive  •GEOS 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continental  USA 
PRICE  TOO  LOW  TO  ADVERTISEfl 

COMMODORE  128  PACKAGE  #2 

•Commodore  128  Computer 

•1571  Disk  Drive 

•1902  RGB  Monitor 

NO  SURCHARGES  On  Credit  Can^ts 

FREE  SHIPPING  In  Continental  USA 

S779       (Limited  to  Unit  1 00  orders) 


ATARI  1040Sr  SYSTEM  PACKAGE 

•Including    RGB   or   Moriochrome   Monitor, 
Mouse,  Doubte-Sided  Disk  Drive,  Basic,  TOS  on 
ROM,  and  BuiH-in  Power  Supply 
•Full  Manufacturer's  Warranty  Applies 
CAUL  FOR  LATEST  PRICE 

ATARI  520ST  SYSTEM  PACKAGE 

•  Including  RGB  or  Monochrome  Monitor, 
Mouse,  Dislc  Drive,  B^ic,  TOS  on  ROM,  and  RF 
Modulator 

•Full  Manufacturer's  Warranty  Applies 
CALL  FOR  LATEST  PRICE 


AMIGA  SYSTEM  PACKAGE 

•Amiga  Computer 
•Amiga  10B0  Monitor 
•512K  Ram  Expander 
•1010  Disk  Drive 

CALL  FOR  LATEST  PRICE 

AVATEX  12CM>HC  IVK>OEM 

•Hayes-Compatible 
•External 

•Works  With  All  Computers 
$129 


MISCEtt ANEO0S  HARDWARE 


COMMODORE  64/128 

Commodore  64C  +  GEOS ...,.,. Call 

1541C  Disk  Drive Call 

Commodore  128 Call 

1571  Disk  Drive Call 

1670  Modem 1 29 

13S1  Mouse 44,95 

1750  flam  Expander 1 69 

1902  RGB  Monitor 279 

Xetec  Super  Graphic. .,,,,.,,.,..,,  ,69.05 


ATARI  XE*XL*400»800 

Atari  130  XE   130 

10S0  Disk  Drive  135 

PR.  Connection 62.95 

Animation  Station 49.95 

Atari  XM>301 ,  .  .  ,  32.95 

Supra  1150  Interface .Call 

850  Interface .Call 

US  Doubier 49.95 

Graphic  At  interface 39.95 


ATARI  520ST-1040ST 

SH  204  20  MEG  Hard  Drive Call 

SF314  DS/DD  Disk  Drive  Call 

Supra  20  MHG  Hartf  Drive Call 

1040  Dust  Cover Call 

520  Dust  Cover Call 

ZTlme  520 39.95 

Z-Tlme  1040 .49.95 


APPLE 

Grappter^  74 

Grappler+/W16K 119. 

Serial  Grappter 74, 

Mach  II  Joystick 27, 

Mach  ill  Joystick 34, 

CALL  FOR  OTHER 
APPLE  HARDWARE 


coMivioDOREMsorrvvARE  *  HfW  l,»irm  11110^1 


BERKLEY 
SOFTWORKS 

GEOS... 37,95 

Wrlter^s  Workshop  32,95 

Geodex 25.95 

OeskPakI 22,95 

FontPaki 19.95 

Geopubllsh  ..... .34.95 

Geotlie 34,95 

Geocalc 34,95 

Geochart  ,... 27,95 

DeskPak2 32.95 

MISCELLANEOUS 

Final  Cartridge   .  .  .39.95 
Gunship  ........  .22.95 

Leather  GoddesBes22.95 

Moonmist 22.95 

Hollywood  HiJInks    22.95 

Fontmaster2 29.95 

Disney  Comic  Strip  23.95 
Disney  Card&Party  23,95 

WWF  Wresting 25.95 

Slarfleet!..  . 26.95 

Elite  ,.. 22.95 

Thunder  Chopper    19,95 

UP  Periscope 19.95 

Contriver  Mouse  , .  36.93 

The  Pawn 2S.9S 

Tracker 25.95 

Stargtider 25.95 

Jet  : ..27.95 

Subiogic  Football  ,27.95 
FSigtit  Simulator  II  33.95 
SuBlogic  Baseball   33.95 

Printmaster 21.95 

Art  Gallery  1  Or  2   .16.95 

Superscript  64 32.95 

Superbase  64   . ,  .  .46.95 

Ace  Of  Aces 19.95 

Kill  Until  Dead 18.95 

Hardball 18.95 

Fight  Night   18.95 

RSI  Tjading  Co.  .  ,  ,16.95 
Print  Shop 26.95 


ACCESS 

Mach  V-Cart 21.95 

Leader  Board 24.95 

Tournament  Disk  .  .  14.95 

Executive  Disk 14.95 

Robotic  Workshop  .  .Call 

Tenth  Frame 24.95 

Famous  Courses  . .  14.95 

MICROPROSE 
See  Atari  130XB  section 
for  items  and  ff rices. 

COMMODORE  64 

P.S.  Companion  ,  .  ,22.95 
GrBph,  Lib  1.2  or  3  16.95 

Fist    19.95 

Parallax 19.95 

Urldium 19,95 

UchiMata 19.95 

Wizard's  Crown  ..  .27.95 

Pbantasiell 27.95 

Road  war  2000  .  ...27.95 

Warship .  ..39.95 

Wargame  Constr. .  .20.95 
Shard  Of  Spring  .  .27.95 
War  in  S.  Pacific   .  .39.95 

Rings  Of  Ziifin 27.95 

2  On  2  Basketball  22.95 
Champ  Baseball  . .  22.95 

GFL  Football 22.95 

Transformers 22.95 

Gamemaker 25.95 

Tag  Team  Wrest  .  .  .22.95 

Breakthru 22.95 

Accolade  Comics    24.95 

Phantasie  3 27.95 

Pirates  .. 25.95 

Battlecruiser 39.95 

Express  Raider  . . .  22.95 
Reatms/Oarkness    27.95 

S.D.i 22.95 

Defender/Crown   ..22.95 

Copy  II  64 27.95 

Wid  Class  LB 25.95 


ACABUS  64 

Chartpak 25.95 

Cad-|3ak ,  .  ,25,95 

Powcrpian  ..,.,.  .25,95 
Super  C  Compiler  ,39,95 
Super  Pascal  ....  ,39.95 
Basic  Compiler  ,  ,  .25,95 

Forth 25.95 

Geos  Inside  &  Out .  16.95 
Personal  Portfolio  ,25,95 
Xper  System 39.95 

SPRINGBOARD 

Newsroom  , 30.95      S'pS^  J  °'^  "  *  "??*§! 

CertiflcateMaker,  .30.95      S'lR*"??  ■  -,-.:■.*  •  '?!-S2 
Graphics  Expander  21 .95 


TIMEWORKS 

Business  Sylems  .39,95 
Wordwrlter/Spell  .  .  32.05 
Swiftcalc/Sideways  25.95 
Data  Manager  II  .  .  .25.95 

Sylvia  Porter  . 32.95 

Evelyn  Wood 25.95 

Sideways .  .19.95 

Partner  64 39.95 

Swiftax'SB 32.95 


Cert.  Maker  Lib  1  ..21.95 


Archon 10.95 

Archonll 10.95 

Fin.  Cookbook  .  ..  .10.95 
Heart  Of  Africa  ..  .10.95 
Mall  Ord.  Monsters  10.95 

Mind  Mirror 10.95 

Movie  Maker  .....  10.95 

Mule.. 10.95 

Music  Construction10.95 
One  On  One. ,  ,  . .  .10,95 
Pinball  Const rucllonlo,95 
Racing  Destruction  10.95 
Seven  Cities  Of  Gold  10.95 

SkyfDX 10.95 

Super  Bould  Dash  .  10.95 


ELECTRONrC  ARTS 

Touchdown  Football  10,95 
Ultimate  Wizard  .  ,  .10.95 
Adv.  Construction  ,25.95 
America's  Cup  . . .  .22.95 

Arctic  Fox    22.95 

Autoduel 31.95 

Band's  Tale 25.95 

Bard's  Tale  II 25.95 

Chickamauga 23.95 

Battiefroni  ,,...,  .25,95 
Carriers  At  War  .,  .31,95 
Europe  Ablaze  ...  .31.95 
Lords  OlConqeust  22.95 
Marble  Madness  .  .20.95 


Moebius 25,95 

Murder  Party 22,95 

Orge 25,9S 

F^gssus 23.95 

Reach  For  The  Stars30.95 
Road  To  Moscow  .  .25.95 
Robot  Rascals  . .  .  .25.95 
Russia  .........  .25,95 

Scrabble 22,95 

Chessmaster  2000  25.95 

Ultima  1 25.95 

Ultima  3 .31,95 

Ulltma4 36,95 

World  Tour  Golf  ..  ,23,95 


j^  EST.  1982  y-  /  .  /  .  - 

P.O.  Box  17882,  Milwaukee.  Wl  53217 

ORDER  LINES  OPEN 

Mon.-Fri.  11  a, m,  -  7  p.m.  CST  £  Sat.  12  p.m.  -  5  p.m.  CST 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders 

414-357-8181 

TELEX  NUMBER  9102406440 


EPYX 


Destroyer 22.95 

Fast  Load 22.95 

Movie  Monster . ,  .  .22.95 
Champ  Wrestling.  .22-95 

World  Games 22.95 

Winter  Games  ..  .  .22.95 
Summer  Games. .  .14.95 
Apshal  Trilogy  ....14.95 
Vorpal  Utility  ....  .14.95 


Multlplan  ....... 

Super  Cycle 

St.  Sports  Basket 
St.  Sports  Basebal 
Summer  Games  2 
Sub  Battle 


.27.9! 

.22.9J 
,22.9J 

122.9! 
.22,9! 
.22.9! 


COMMODORE 
128  SOFTWARE 


(ANSEflBACK  =  COWIPUT  MJLW  UQJ 


Superbaae  126. . . 
Superscript  128  . . 

Paper  Clip  II 

Word  writer  126  .. 
Data  Manger  126  . 

Swiftcalc  128 

Sylvia  Porler  126  . 

Partner  128   

Fleet  System  4 .  ,  . 
Perfect  Writer  .  .  . 
Pocket  Writer  2  .  , 


.57,95 
.46.95 
.47,95 
.42,95 
,42,95 
-42,95 
-42.95 
.  42.95 
.48.95 
.49.95 
.36.95 


Pocket  Fiter  2 

Pocket  Planner  2  , 
Basic  Comp.  126  , 

Cad  Pak  128 

Super  C  Compiler 

CoBol  126 

Super  Pascal  126 . 
Speed  Term  126,  . 
Chan  Pak  126  .  .  . 

Mach  V/128 

Fontmaster  126  .  . 
Multlplan  126...  . 


.36,9* 
.36.9; 
.39,9; 
-39.9; 
.39.9' 
.39.9 
,39.9 
.26-9 
.25.9! 
.32,9! 
.36.9! 
,27.9! 


HS]    NO  SURCHARGE  FOR  MASTERCARD  &  VISA  '^ 


Nty:iBi«cii[Nii 


.*-'::iiii.isoi**r^^ 


Miiri»iiii 


ACTIVISION 

Alter  Ego 31.95 

Borrowed  Time  . .  .25.95 

Hacker 25.95 

Tass  Times 25,95 

Shanghai  .......  .25.95 

Poflal 29.95 

GFLFootbaii  ....  .29.95 
2/2  Bas(<Gtbafl  .  .  .  .25.95 
Champ  Basebait  ..25.95 

SIERRA 

King's 

Quest  iji  car  Ml...  .31.95 

Smart  Money 32.95 

Space  Quest 31.95 

Bmcl^Cauidron  ...25.S5 
Heiicopter  SJmul  .  .25.95 
Poike  Quest ...... .CaEi 


BRODERBUND 

Print  Shop 37.95 

Karatelta .21,95 

Graphic  Lib  1  or  2  21.95 
P.S  Companion  ...31.95 

Toy  Shop  , 42.95 

TVpe 31.95 

Variabie  Feast 39.95 

Fin  independence  94,95 
For  Comment, .  . ,  124,95 

SPRINGBOARD 

Certificate  Maker .  .38.95 
Newsroom  Pro  . . .  .82.95 
SEE  APPLE  SECTION  FOR 
RESTOF ITEMS  &  PRICES 

EPYX 

SEE  APPLE  SECTION  FOR 
ITEMS  A  PRICES 


ELECTRONrC  ARTS 


Archon .10,95 

F]n  Cookbook 10.95 

Music  Coristruct  ..10.95 

One  on  One 10.95 

Pinbaii  Conatr. 10.9S 

7  Cities  of  Goid  ...10.95 
Super  Biderdash  .  .10.95 

Mind  Mirror  10.95 

Amnesia .29.95 

Gr.  Slam  Bridge  ...  39.95 

MIN05CAPE 

Bop/Wrestie.  ....  .19.95 

indoor  Sports  . . .  .19.95 

Infiltrator 19.95 

Balance/Power   ,  .  ,31.95 
Sub  Mission  ... .  .  .25.95 

Amer  Chalienge   ..25.95 

Racter 25. SS 

Mastertype. 25.95 

CrosswonJ  Magic .  ,  31 .95 
Perfect  Score 49.95 


Murtfer  Party  ....  .25.95 

Ogre ........ 25.95 

Radio  Baseball  ...25.95 

Scrabbie 25.95 

Starfieeti 34.95 

Chessmaster 25.95 

Uitimaifi    38.35 

UitimaiV 39,95 

Wrid  Tr  Golf  (NoAp)  34.95 
Starfilght(NoAp)..  34.95 

TiME  WORKS 

Wortlwriter 39.95 

Swittcalc 39.95 

Data  Manager  . . .  .39.95 
Sylvia  Porter  ....  .64.95 

Swlftax ...,.44,95 

Partner, .39,95 

PCPowerpack  ....77.95 


INFOCOM 

Ballyhoo   ..25.95 

Hitchiker ..25.95 

Leather  Goddess  . .  25.95 

Trinity., 25.95 

Hollywood  Hillnx..  25.95 

Moonmlst 25.95 

Zork  Trilogy 44.95 

ACCOLADE 

Hardball 24.95 

Mean  18 31.95 

PSI  Trading  Co.  ...24.95 
Course  Disk 16.95 

SSI 

Rings  of  ZMfin  ....25.95 
Kampfgruppe.  .  . .  .33.95 

Shard/Spring ,25.95 

Road  war  2000  ...,  25.95 
Phantasle. 25.95 


MISCELLANEOUS  fBM 


SDI .25.35 

Defender/Crown  .  .25.35 
Alternate  Reality  ..31.35 

1st  Cadd ..31.35 

Star  Trek  11 .25.35 

Flight  Sim.  11 38.35 

Strip  Poker ...  25,35 

Orbfter 31.35 

Pawr^ ■  .  .29.35 

Starglider ....29.35 

7lh  Spirits 29.SS 

Champion  Golf  ...31.95 
Airplane  Constr . .  .25.95 

UNfSON  WORLD 

Printmasler 36.95 

Art  Gallery  1   .  .  ,..24.95 

Art  Gallery  2   18.95 

Newsmasfer 62.95 


Conflict/Vietnam  .  .25.95 
Decision/Desert  .  .25.95 
F-15  Strike  eagle  ..22.95 
Silent  Service  .  .  .  .22.95 
Crusade/Europe  ..25.95 
Gynshlp.........  22.95 

Universe  II  ,. 47.95 

Wizardry   .39.95 

Up  Periscope 19.95 

Thunder  Chopper    19.35 

Jet 34,35 

SubiOQ  Baseball  . .  34.35 
Sublog  Football .  . ,  34.35 

Falcon 31.95 

Gate 24.95 

Wilderness .31,95 

Starf1eet2  .......34.95 


Call  For  Other  IBM  Products 


EPYX 

Sports  Basketball    25.95 
Sports  Baseball .  .  .25.35 

Wirld  Karate 19.35 

WoMd  Games...  .  .25.95 

Destroyer .......  .25.95 

Movie  Monster. ,  .  .25.35 

Winter  Games 25.35 

Summer  Games  II    25.35 

Apshal  Trilogy 25.35 

Sub  Battle  ... 25.35 

Epyx  Joystick 25.35 

DATASOFT 

Black  Magic, 16.95 

Old  Score*. 19.95 

Tobruk  , .22,95 

Swords/Sorcery ...  19.95 
Bismarck 22.95 


ELECTRONIC  ARTS 

Age/Adventure ....  10. 9S 

Arehonli  , 10.95 

Movie  Maker  ,  . . .  .  10.95 

Skyfox ., 10.95 

Adv.  Constr. 32.95 

Artie  Fox 25.95 

Autoduei 32.95 

Bard's  Tale.. 29.95 

Bard's  Tale  11 32.95 

IjOrd/Conquest   ...25.95 
Marble  Madness  .  .23.95 

Moebius 38.95 

Pegasus 25,95 

Russia 26.95 

Ultima  I    26.95 

SEE  IBM  SECTION  FOR 

REST 
OF  ITEMS  AND  PRICES 


BROOERBUND 

Airheart 22.95 

Animate  ....,.,,,  44.95 

Print  Shop 31.95 

On  Balance 25.95 

Toy  Shop 39.95 

TVpe  ,... 2B.95 

Science  Tool  Kit  .  .  44.95 
Graph  Lib  1,2  or  3  16.95 
Bank  ST  Series ,, ...  Call 


DATA  EAST 

Karate  Champ  . . .  .15.95 
Kung  Fu  Master . .  .15.95 
Commando  .....  ,25.95 
Tag  Team  Wrest  .  . .  25.35 


INFOCOM 

SEE  IBM  SECTION  FOR 
ITEMS  AND  PRICES 

MfNDSCAPE 

SE£  tBM  SECTION  FOR 
ITEMS  AND  PRICES 


ACTIVISION 

Gamemaker  ..... .31.95 

Hacker  II 25.95 

Labyrinth 25.95 

Little  Cornputer  .  .  .25.95 

Greeting  Card  .  . .  .25.95 

S££mM%£anONFOR  R£ST 

OF  ITEMS  AND  PRICES 


SPRINGBOARD 

Certificate  Maker .  .  31 .95      GameB/Chiidren   . .  22.35 
Clip  Art  lor  3  ,...19,35      Graphics  Expander     25.35 

Clip  Art  2 25,35       Newsroom 37.35 

Certificate  Lib  1 ...  22,35       Piece  of  Cake  Math     22 .35 


Call  For  Other  Apple  Products 


APPLE 

Gettysburg 
Warship  .  . 
Phantesle . 
Battle/Antielnam  . . 

Phantasie  ti . 

Battlecruiser  .... 
Realms/Darkness 


Fight  Night 

Hardbair 

PSI  Trading   ..... 

Comix 

TheHobbIt 

Up  Periscope .... 
Thunder  Chopper 
Ah.  Reality . ,      . . 

Math  Blaster 

Spell  It 

Champ  Wrestling , 
Wizard's  Crown  . , , 
Gemslone  Healer 


MISCELLANEOUS 

39.95  Word  Attack 31.95 

39.95  Elite 23.35 

25.95  Pawn 29.9S 

31.95  Starglider 29.95 

25.95  Gunship 25.35 

39.95  F-15  STrike  Eagle  .  ,22,35 

25.95  Silent  Service 22,35 

21.95  Smart  Money 49.95 

21.95  Sublog.  Baseball . .  34,35 

21.95  Sublog  Football . ,  ,  34.95 

31.95  Jet 27.95 

23.95  Space  Quest 31.95 

13,95  Anlmat.  Station  .  .  .59.95 

19.95  Printmaster  ■+ 24.35 

34.95  Art  Gallery  1  or  2  ..  1  a. 35 

31,95  Publisher 69,35 

31.95  War  in  S.  Pacific   .  .39.35 

25,95  Star  Trek  11. 25.35 

25,95  Roadwar  2000 25.95 

19.95  Phantasie  3 25.95 


ABACUS 

Textpro. 32,95 

Datrkve 32,95 

Text  Designer 32.95 

Assempro   .......39,95 

Powerplan .49.95 

Patntpro 32.95 

Abacus  Books  ....  .Call 

ST  GRAPHICS 

Degas  Elite  48. 9S 

Easy  Draw 48.95 

Cad  3-D 36.95 

Graphic  Artist  . . .  124.95 

Paintworks 44.95 

iBtCadd 31.95 

Aegis  Animator  . .  .  48.95 

Neochrome 34.95 

Computereyes  . . ,  189.00 

ST 
TELECOMMUNICATION 

St  Talk  Ver  2.0  ..  ..18,95 

SB/ST 31.95 

Flash 27,35 

J.STaik 31.95 


BRODERBUND 

Karatekfl 19.35 

Print  Shop 28,95 

Bank  Street  Writer  .32,35 
Graph.  Lib.  1,2  or  3  16.95 
P.S.  Companion . .  ,22.95 

MICROPROSE 

Silent  Service  .  ..  .22.95 
F-1S  Strike  Eagle  ..22.95 
Decision  In  Desert. 25. 35 
Ken.  Approach  .  ..16.35 
Crusade/Europe  ..25.35 
Corfllct/Vietnam  .  .25.35 
Top  Gunner 16.35 


ST  EDUCATIONAL 

Decimal  Dungeon    24.95 
Fraction  Action  .,  .24.95 
Kinderama  ......  .24.95 

Read  &  Rhyme , . .  .  24.95 
Animal  Kingdom  .  .24,95 

Speller  Bee 31 ,35 

Kfd  Talk 31 .35 

Math  Talk 31 ,35 

First  Shapes   ...  ..31.35 
Winnie  The  Pooh..  16.95 

Donald  Duck 16.95 

Buzzword 23.95 

ST  DATABASES 

DBMan 36.95 

Regent  Base 57,95 

Data  Manager  St  ..48.95 
Zoomracks  II 96.95 

ST  WORD- 
PROCESSORS 

Regent  Word  II . .  .  .57.95 

WordwrlterSt 4S,95 

Thunder 24,95 

Paperclip   Elite Call 


££2 
INFOCOM 

Hitchiker 22,95 

WIshbringer......  22.95 

Ballyhoo   25,95 

Moonmlst 22.95 

Leather  Goddess .  .  22.95 
Hollywood  Hijinx  .  .22.95 
Zork  Trilogy 39.95 

XLENT  SOFTWARE 

Megafontil.. 16.95 

Page  Designer. . .  .18.95 

Megafiler .18.95 

PS  Interface 18.95 

Rubber  Stamp 18.95 

Typesollcr 21,95 


MICHTRON 

Cornerman   31.95 

Echo 24.95 

M-Dlsk 24.35 

Major  Motion  ....  .24.35 
Michtron  Utilities.  ,37.35 

Cards 24,35 

Time  Bandits 24.35 

Pefs.  Money  Mgr. , .  31 .35 
Pin  ball  Factory   .,.24.35 

Eight  Ball 18.95 

Back-Up 24.95 

Match-PoInt  , 24.95 

Karate  Kid  II 24.95 

Flald 31.95 

GFA  Basic 48.95 

Trimbase 62.95 

Space  Shuttle  2  . .  .  24.95 

M-Cache 24.95 

GFA  Draft 62.95 

Trivia  Challenge.  ..24.35 
Journ  To  Lair 32.35 

INFOCOM  ST 

SEE  IBM  SECTION 
FOR  STEMS  &  PRICES 


ST  BUSINESS 

VIP  Professional Call 

SwirtcalcSt 48,95 

Isgur  Portfolio  ..  .124,95 

Fin.  Cookbook 32,95 

DAC  Payroll 32.95 

DAC  Easy  Accting  44.95 
Dollars  And  Sense  64.95 
Home  Accountant   31.95 

Sylvia  Porter 48.95 

Swlttax'86 ...48.95 

ST  UTILITIES 

Music  Studio 33,35 

Time  Link 31.35 

Micro  Cookbook  ..32.95 
CZDroid..  .....  ..e9.95 

EZTr^ck 39.95 

Write  90 18.95 

Desk  Cart 62.95 

Lib  1/Cert  Maker  ..21.95 
DESKTOP 

PUBLISHING 

Drawrito 99.95 

Publish.  Partner  ,  ,99.95 
Certificate  Maker.,  31 .35 


ST  ADVENTURES 

Sundog 24.95 

Universe  11 ..44.95 

The  Pawn 29.95 

Starglider 29.95 

Dungeonmaster  ..24.95 
Ait.  Reality.  .....  .31.95 

Tass  Times 32.95 

Mercenary 24.95 

Autoduel 32.95 

Ogre 25.95 

Defender/Crown   .,32,95 

S.D.i 32.35 

Balance  Of  Power    32.35 

Ultima  ill  Or  IV 38.35 

Portal .32.35 

Kings  Quest 

1,2  or  3 32.35 

Space  Quest 32.35 

Pfiantasie 25.95 

Phantasie  II 25.95 

TVacker .29.95 

Colonial  Conquest  25,95 

Roadwar  2000 25.95 

Wizard's  Crown  .  .  .25.95 

flings  Of  Ziifin 25.95 

Phantasie  3 25.95 


ST  LANGUAGES 


Personal  Pascal  . .  .49.95 
Mark  Williams  C.     114.95 

Lattice  C. S9.95 

Cambridge  Lisp.  .139.95 

Modular  TI 49.95 

Fast  Basic ...  89.95 

LDW  Basic ...44.95 


ST  PRINT 
UTILITIES 

Rubber  Starnp  .  .  . 

Printmaster  Pius  . 

Megafont  St 

Art  Gallery  1  Or  2 

lypesetter  Elite  . . 

PM  Interface 

ST  ARCADE  GAMES 
Winter  Games  ....  24.95      Super  Cycle 

Rouge   24,95      Indoo 

Super  Huey 25,95 

Mean  18 25.95 

Famous  Course  .  ..14.95 
Leader  Board ....  .25.95 

Brattacus .32.95 

Silent  Service 25.95 

Flight  Simulator  11  33.95 
Champ  Wrestling..  24.95 

World  Games 24,95 

Chesa master  2000  32.35 

Tenth  Fr^me 24,35 

Shanghai 23.35 

Micro  Baseball. .  .  .33.95 
WWF  Wrestling  .  .  .39.95 
Skyfox 29.95 


door  Sports  . .  . 
F.15  Strike  Eagle  . 
High  Roller  Sim  ,  . 
TWo/Two  Basketball 
Deep  Space 
Arena  . ,  , , . 
St  Karate  . . 
The  Wanderer  . , . . 
Champ  Baseball  . 
GFL  Football  .... 
Harrier  Strike .... 
Sub  Battle  Sim  . . 

Arctic  Fox   

RPV 

Crystal  Castles  . , 
Gridiron 


24.95 
24.35 
24.95 
18.95 
31.95 
18.95 

24,35 
19.95 
27.95 
19,95 
29,95 
29,35 
22.35 
22.35 
25.35 
23.95 
23.95 
3T.95 
24.95 
26.95 
24.95 
20.95 
42.95 


'.^S^^SA^^M^^^^idM^,^^^.^^ 


ELECTRONIC  ARTS 


MISCELLANEOUS  XE  /  XL  /  400  /  800 


Age  Of  Adventure  .10.95 

Archon 10.95 

Archonll 10.95 

Financial  Cookbook  10.95 
Mail  Ord.  Monsters  10.35 

Movie  Maker 10.35 

Music  Cons1ruction10.35 

One  On  One 10.95 

Plnball  ConstrucllonlO.35 

Racing  Destruction  10.95 

7  Cities  Of  Gold...  10.95 

BATTERIES 

INCLUDED 

HomePak   14.35 

Paperclip  w/Spell ,  .35.95 
8'Graph.  ,,.....24.95 


Super  Bould.  Dash 
Touch,  Football  . . . 
Chessmaater  2000 
Chlckaumauga  .  . . 
Lords/Con  quest .  . . 

Ogre 

Rommel/Toburk . . . 

Starlleet  I 

Ultima  I  

Ultima  III  .,..,,., 
Ultima  IV 


10.95  Flight  Simulator   .  .33.35 

10,95  Universe ....57.35 

25.95  Strip  Poker 21.35 

23.95  Micro  League 

22.95  Baseball.    ....,,.25.95 

25.95  Hare/Brace  Sat   .,.53.35 

26.95  GeneralMgr.  MLB  .25.35 

33,95  Fight  Nlgn!   18.35 

27.95  Hardbair 18.35 

31,95  Triple  Pak .,,.14.35 

38.95  Leader  Board 24.35 

Tourn.  Disk/LB   ..  ,14.95 


Executive  Disk/LB  .  14.95 
Tenth  Frame.  ....  .27.95 

infiltrator 13.95 

Bop  'N' Wrestle  ..  .13.95 

Super  Huey 18.35 

Home  Planetarium  27.35 
Atariwriter  Pius  ..  .39.95 
MLB  Boxscore/Stat  16.95 
Home  Accountant  .30.35 
Apshai  Trilogy  ...  .15.35 
Summer  Games. ,  .  15.35 


World  Karate 
Championship  ....  19.95 

Mercenary  .......  18.95 

Wizard's  Crown  . ,  .27.95 

Gettsburg 39.95 

Warship 39.95 

Synfiie 32.95 

Svncaic 32.95 

Music  Studio 22.95 

Alt.  Reality 24.95 

A/R  Dungeon 24.95 


Call  For  Other  Atari  Products 


AMIGA  ARCADE  GAMES 


Microleague  B3eeb.39.95 

The  Pawn 23. 9S 

Flight  Simulator  1)  .34.95 
Kings  Quest  11  .  ..  .34.95 
Black  Cauldron  ..  ,34.95 

Jet 34.95 

Silenl  Service  ,..  ,27.95 

Mean  18 27.95 

Leader  Board  ....  .27.95 


Tenth  Frame 27,95 

Winter  Games 27.95 

Strip  Poker 29.95 

Hex ..,27.95 

World  Games 27.95 

Deep  Space  .....  .29.95 

Arena 24.95 

Publisher ..129.95 

Starglider 29.95 


MINDSCAPE 

Mastertype,.  ....  .27.95      King  of  Chicago  .  .34.95 


Haiiey's  Project  ..  .23.35 

Brataccus   34.95 

Rac!er 29.95 

SDI 34.95 


Defender  of 

the  Crown  ,....,  .34,35 

Sinbad 34.35 

Balance  of  Power   .  34.35 


ACTIVISION 

Hacker 29.95 

Mindshadow 29.95 

Borrowed  Time  . .  .29.95 
Little  Computer 

People .  .  ..,  ,34.95 

Borrowed  Time  , .  .29,95 

Music  Studio 39,95 

Shanghai  ,,...,,  .29.95 

Hacker  11 34.95 

Tass  Times 29.35 

GBA  Basketball  .  .  .29.35 
Champ.  Baseball  .,29.35 
GFA  Football 29.95 


ELECTRONIC  ARTS 


AMIGA  PRODUCTIVITY 


Skyfox 27.95 

Arctic  Fox    27.95 

Marble  Madness  ..34.95 
Return/Atlantis  .  ..29.95 

Fin.  Cookbook 34.95 

Adventure  Constr.  .27.95 
Che&smasrer2000  32.95 
Instant  Music.  .  .  .  .34,95 
Deluxe  Print. .  .  ,  ,  ,69,95 
Deluxe  Video.  .  .  ,,69.95 
Deluxe  Paint   .....  69.35 

Archon  tor  11 27.95 

One  of  One 27.95 


7  Cities  of  Gold  ,,  ,27,95 

Startleet  Or>e 38,95 

Art  Disk/ 

Deluxe  Print.. 20.95 

Art  Disk/ 

Deluxe  Paint   .  ..,  .20.95 

Bard's  Tale 34,95 

Music  Const.  2,0  .  .69.95 

Autoduel 34.95 

Ultima  ill 41.95 

Deluxe  Paint  11   Call 

Grand  Prix Call 

Eari  Weaver  Baseball  Call 


VIP  Professional  .169.95 

Analyze  2.0 94.95 

On-Llne 44.95 

Scirbble  . 64.95 

Organize  .... 64.95 

Printmasler 32,95 

Art  Gallery  I  or  11  .,19.95 
Zumafof^tl,  It  or  ill.  21 .95 

impact 123,95 

Aegis  Draw 74.95 

Aegis 

Animator/images.  .84.95 
Aegis  Art 23.95 


Maxiplan 99.95 

Maxicom 34.95 

Maxidesk 47.95 

Paperclip  Elite 84.95 

Degas  Elite 52.95 

LDP  Planner   79.95 

LPD  Writer 79.95 

LPD  Filer 79.95 

Logistics  ,  .,  .  ...159.95 

Modular  11    ,. 64.95 

Gizmo   ., .34.95 

Superbase  Amiga  .99.95 
DBMan 99.95 


Call  For  Other  Amiga  Software  Products 

UnLrCnllllj  UlrUnlVlrtllUri.  Please  specify  system.  For  fast  deSj  very  send  cashier's  check  or  money  order  Personal  and  company  checks  allow  14  business  days  to  clear  School  P.O's  welcome.  C.O.D.  cliarges 
nt  S3.(H)l  In  Continenlal  U.S. A.  inctudc  53  OG  for  sottVi'atc  orders.  4%  shipping  for  hartfft^rc.  iiiinrmufn  S4.M.  MasterCard  and  Visa  orders  please  include  caid  #,  expiralon  date  and  signature.  Vi\  resfdenls  please  include  5°H3  sales  tax  HI.  AK,  FPO.  APO,  Puerto 
Rico  and  Canadian  onJers,  plea&e  add  5%  shipping,  rninimmm  JSM  All  oiher  foreign  orriers  add  ISVo  sliippinQ,  nnivifnuri  $10.IKI.  All  orcfers  sNpped  outside  the  Continental  U.S  A.  are  shipped  first  class  insured  U.S.  mail.  If  (oretgn  shipping  charges  axceed  the 

minimiifTi  amouni,  you  will  be  charged  the  additional  amount  to  gel  your  package  ij  you  quickly  and  safeljf.  Aif  goods  arc  new  and  include  factory  '.varrHnty,  Due  to  ou'  \m  priees  all  sales  are  im\  Alf  detecltve  relurns  nmsi  liavc  a  rBtum  aulfroriHlion  nurrfbet 

Please  can  {'\U)  357-8131  tg  obSain  an  R  A  p  or  your  rclum  mil  not  be  accepted.  Prices  and  availability  SL-!}ie:l  to  change  withcut  ncfce 


V^?T?^^- 


It's  easy  to  mme  a  copy. 

It's  quick. 

It's  illegal. 

It's  wrong.  Jl 

it's  hard  to  believe. 

People  who  wouldn't  think  of  shoplifting  a  software 
product  on  their  lunch  hour  don't  think  twice  about 
going  back  to  the  office  and  making  several 
illegal  copies  of  the  same  software- 
Making  unauthorized  copies  of  software  is  a  violation  of  U.S. 
Copyright  Law.    Yet  the  problem  has  reached  epidemic 
proportions  because  many  people  are  unaware,  or  simply 
choose  to  Ignore  the  (aw.    The  software  industry  is  urging 
decision-makers  and  software  users  to  take  steps  to  stop  soft- 
ware piracy  in  their  organizations.    In  the  meantime,  the  indus- 
try has  been  forced  to  prosecute  willful  copyright  violators. 

There  are  legal,  moral  and  economic  imperatives  forbidding 
theft  of  copyrighted  software. 


/" 


.^.    ■■.!^-i^>,'^'.'^-- 


There  is  a  free  pamphlet  on  the  subject.    Call  or  write  for  a 
copy.    A  copy.    A  copy.    A  copy  for  everyone  you  know. 
Please  ask  for  Priscilla. 


A 


ADAPSO 

1300  North  Seventeenth  Street 
Arlington,  Virginia  22209 
(703)  522-5055 


COMPUTEi's 

Author's  Guide 


Most  of  the  following  suggestions  serve  to  improve 
the  speed  and  accuracy  of  publication.  COMPUTE!  is 
primarily  interested  in  new  and  timely  articles  on  the 
Commodore  64/128,  Atari,  Apple,  IBM  PC/PCjr, 
Amiga,  and  Atari  ST,  We  are  much  more  concerned 
with  the  content  of  an  article  than  with  its  style,  but 
articles  should  be  clear  and  well-explained. 

The  guidelines  below  will  permit  your  good  ideas 
and  programs  to  be  more  easily  edited  and  published: 

1.  The  upper  left  corner  of  the  first  page  should 
contain  your  name,  address,  telephone  number,  and 
the  date  of  submission. 

2.  The  following  information  should  appear  in  the 
upper  right  corner  of  the  first  page.  If  your  article  is 
specifically  directed  to  one  make  of  computer,  please 
state  the  brand  name  and,  if  applicable,  the  BASIC  or 
ROM  or  DOS  version(s)  involved.  In  addition,  please 
indicate  the  memonj  requirements  of  programs, 

3.  The  underlined  title  of  the  article  should  start 
about  2/3  of  the  way  down  the  first  page. 

4.  Following  pages  should  be  typed  normally,  ex- 
cept that  in  the  upper  right  corner  there  should  be  an 
abbreviation  of  the  title,  your  last  name,  and  the  page 
number.  For  example:  Memory  Map/Smith/2. 

5.  All  lines  within  the  text  of  the  article  must  be 
double-  or  triple-spaced.  A  one-inch  margin  should  be 
left  at  the  right,  left,  top,  and  bottom  of  each  page.  No 
words  should  be  divided  at  the  ends  of  lines.  And 
please  do  not  justify.  Leave  the  lines  ragged. 

6.  Standard  typing  paper  should  be  used  (no  eras- 
able, onionskin,  or  other  thin  paper)  and  typing 
should  be  on  one  side  of  the  paper  only  (upper-  and 
lowercase). 

7.  Sheets  should  be  attached  together  with  a  pa- 
per clip.  Staples  should  not  be  used. 

8.  If  you  are  submitting  more  than  one  article, 
send  each  one  in  a  separate  mailer  with  its  own  tape 
or  disk. 

9»  Short  programs  (under  20  lines)  can  easily  be 
included  within  the  text.  Longer  programs  should  be 
separate  listings.  It  is  essential  that  we  have  a  copy  of 
the  program,  recorded  twice,  on  a  tape  or  disk.  If  your 
article  was  written  with  a  word  processor,  we  also  ap- 
preciate a  copy  of  the  text  file  on  the  tape  or  disk. 
Please  use  high-quality  10  or  30  minute  tapes  with 
the  program  recorded  on  both  sides.  The  tape  or  disk 
should  be  labeled  with  the  author's  name,  the  title  of 
the  article,  and,  if  applicable,  the  BASIC/ROM/DOS 
version(s).  Atari  tapes  should  specify  whether  they  are 
to  be  LOADed  or  ENTERed.  We  prefer  to  receive  Ap- 
ple programs  on  disk  rather  than  tape.  Tapes  are  fairly 
sturdy,  but  disks  need  to  be  enclosed  within  plastic  or 


cardboard  mailers  (available  at  photography,  station- 
ery, or  computer  supply  stores). 

10.  A  good  general  rule  is  to  spell  out  the  num- 
bers zero  through  ten  in  your  article  and  write  higher 
numbers  as  numerals  (1024).  The  exceptions  to  this 
are:  Figure  5,  Table  3,  TAB(4),  etc.  Within  ordinary 
text,  however,  the  zero  through  ten  should  appear  as 
words,  not  numbers.  Also,  symbols  and  abbreviations 
should  not  be  used  within  text:  use  "and"  (not  &), 
"reference"  (not  ref.),  "through"  (not  thru). 

11.  For  greater  clarity,  use  all  capitals  when  refer- 
ring to  keys  (RETURN,  TAB,  ESC,  SHIFT),  BASIC 
words  (LIST,  RND,  GOTO),  and  three  languages 
(BASIC,  APL,  PILOT).  Headlines  and  subheads 
should,  however,  be  initial  caps  only,  and  emphasized 
words  are  not  capitalized.  If  you  wish  to  emphasize, 
underline  the  word  and  it  will  be  italicized  during 
typesetting. 

12.  Articles  can  be  of  any  length — from  a  single- 
line  routine  to  a  multi-issue  series.  The  average  article 
is  about  four  to  eight  double-spaced,  typed  pages. 

13.  If  you  want  to  include  photographs,  they 
should  be  either  5X7  black  and  white  glossies  or 
color  slides, 

14.  We  do  not  consider  articles  which  are  submit- 
ted simultaneously  to  other  publishers.  If  you  wish  to 
send  an  article  to  another  magazine  for  consideration, 
please  do  not  submit  it  to  us. 

15.  COMPUTE!  pays  between  $70  and  $800  for 
published  articles.  In  general,  the  rate  reflects  the 
length  and  quality  of  the  article.  Payment  is  made 
upon  acceptance.  Following  submission  (Editorial  De- 
partment, COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403)  it  will  take  from  four  to  eight 
weeks  for  us  to  reply.  If  your  work  is  accepted,  you 
will  be  notified  by  a  letter  which  will  include  a  con- 
tract for  you  to  sign  and  return.  Rejected  manuscripts 
are  returned  to  authors  who  enclose  a  self-addressed, 
stamped  envelope. 

16.  If  your  article  is  accepted  and  you  have  since 
made  improvements  to  the  program,  please  submit  an 
entirely  new  tape  or  disk  and  a  new  copy  of  the  arti- 
cle reflecting  the  update.  We  cannot  easily  make  revi- 
sions to  programs  and  articles.  It  is  necessary  that  you 
send  the  revised  version  as  if  it  were  a  new  submis- 
sion entirely,  but  be  sure  to  indicate  that  your  submis- 
sion is  a  revised  version  by  writing,  "Revision"  on  the 
envelope  and  the  article. 

17.  COMPUTE!  does  not  accept  unsolicited  product 
reviews.  If  you  are  interested  in  serving  on  our  panel 
of  reviewers,  contact  the  Review  Coordinator  for 
details. 
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COMPUTEi's  Guide 
To  Typing  in  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing—'The  Automatic  Proofreader/' 

Programs  for  the  IBM,  Tr-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard- to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  7Wt  type  the  braces.  For 
example,  (CLEAR}  or  {CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below^  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If 
you  see  {A},  hold  down  the  CONTROL 
key  and  press  A.  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  \<Ai\.  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}  .  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  \<S  Q>\,  you  w^ould 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 


When    you    see 
iCLEAR) 

iupy 

CDOWN> 
CLEFT> 
{RIQHT> 
tBACK  S> 
t DELETE! 
< INSERT > 
<DEL  LINE> 
<INS  LINE> 
CTAB> 
<CLR  TAB> 
<:SET  TAB> 
{BELL> 
CESO 


Type 


ESC 

ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  « 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 
U 

a 


Cl ear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
Escape  key 


Commodore  PET/CBM/VIC/64/1 28/1 6/+4 

See: 


When  You 
Read: 


{CLR} 

{HOME} 

{UP} 

(DOWN) 

{LEFT} 

{RIGHT} 

{RVS} 

{OFF} 

{BLK} 

(WHT} 

{RED} 

{CYN} 

{PUR} 

{CRN} 

{BLU} 

{YEi} 


Press: 

;  SHIFT  i  I  CLR/HOME  \  Fl 

;  aR/HOME]|  |g| 

[smn]  p^RSR^l  m 


When  Vbu 
Read: 


Press: 


^i^^<RSR-^J 


CTRL 


SSTiLo 


m 


CTRL 


TIE] 


aRL  1 

aRi 

• 

CTRL 

CTRL 

CTRL 

[1 


CTRL 

7 

CTRL 

B 

§41 

i6^ 
E^i 
iai 

I  Fl  ) 

{  F2  } 

{  F3  } 

{  R   } 

{  F5  } 

{  F6  } 

{  F7  } 

{  PB  } 


[COMMODORE      1 


m 


See: 


COMMODORE 


COMMODORE 


m 


I  COMMODORE  I  [  4  j 
[COMMODORij  pr] 

commodore]  \T] 


I  COMMODORE  I 

[commodore!  f  a] 


■t 
□ 


n 

i  SHIFT 

n 

n 

SHIFT 

i     B 

SHIFT 

i  ^ 

n 

SHIFT 

f? 

< • 

Ill 

Bl 

■I 

m. 
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key  (Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  In  a 
special  fornaat.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
row (*-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memory.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Autamotlc  Proofreader 

Type  in  the  appropriate  program  hsted 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC- 20.  Don't  omit  any  lines^  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Pius/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  thiS;  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT 
USR(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 

(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 

checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number* 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl- Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  " filename" ,k. 


Program  1:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 

100    SRAPHICS  0 

110  FOR  1=1536  TO  1700:REA 

D  A:POKE  I , A: CK=CK+A : N 

EXT  I 
120  IF  CKO19072  THEN  ?  "E 

rror  in  DATA  Statement 

s.   Check  Typing. ":END 


A=USR(1536) 
?  :?  "Autom* 
eader  Now  Ai 


atic  Proofr 
dtivated. " 


DATA  104, 
3,201,69,24 
DATA  200,20! 
8,243,96,20! 
DATA  153,26 
6,  153,26,3, 
DATA  0j  109,  I 
4,6,232,224 
DATA  208,241 


0,0, 185,26, 
0,7 
[0,  19 
0,  16 
,3,2 
162 
0,22 
,16 

5,  16 

6,  14 


2,34,20 
9,74 
00, 169, 

IB, 157, 7 


130 
140 

iS0 
160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


Program  2:  IBM  Proofreader 

By  Charles  Brannon,  Program  Editor 

10  'Automatic  Proofreader  Vers 
ion  3.0  < Lines  205,206  adde 
d/190  deleted/470,490  chang 
ed  from  V2p0> 
100  DIM  L*(500J ,LNUM<500) :COLa 
n    0,7, 7s  KEY  OFFsCLS:MAX='0: 
LNUM(0)=65536I 
110  ON  ERROR  GOTO  120: KEY  15, C 
HR*C4)+CHR*(70):ON  KEY (15) 
QOSUB  640: KEY  (15)  ON: SOT 
a  130 
120  RESUME  130 

130  DEF  SE6=&H40:W-PEEK<StH4A) 
140  ON  ERROR  GOTO  650: PRINT: PR 

INT'»Proo-f reader    Ready.  " 
150   LINE    INPUT    L*: Y=CSRLIN-INT 

(LEN(L*J/W)-1: LOCATE    Y, 1 
160  DEF    SEG=0:POKE    i050,30:POK 
E    1052, 34: POKE    1054,0: POKE 
1055, 79: POKE    1056, 13: POKE 
1057, 28; LINE    INPUT   L*:DEF 
SE6:IF    L$=""    THEN    150 
170    IF    LEFT*(L*,1)="     "    THEN    L$ 
=MID*tL*,2) :GOTO    170 
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1B0  IF  VALCLEFT*(LS,2)>=0  AND 
MID* CL*, 3,1)="  "  THEN  L*=M 
ID$(L«,4> 

200  IF  ASC<L$)>57  THEN  260  'no 
line  number,  there-Fare  co 
mmand 

205  BL=^INSTR<L*,  "  ''):IF  BL=0  T 
HEN  BL$=L*:GOTD  206  ELSE  B 
L*=LEFT«(L*,BL-1) 

206  LNUM=VAL(BL$)  ;  TEXT$=t1ID4  (L 
* , LEN ( STRS ( LNUM ) ) + 1 ) 

210  IF  TEXT*=""  THEN  BOSUB  540 

:IF  LNUM=LNUM(P)  THEN  BOSU 

B  560! GOTO  150  ELSE  150 
220  CKSUM=0:FOR  1=1  TO  LENtL*) 

:CKSUM= (CKSUM+ASC  <MID$ (L$, 

I))*I>  AND  2553  NEXT: LOCATE 
Y,l: PRINT  CHR*C65+CKSUM/1 

6)+CHR$(65+(CKSUM  AND  15) ) 

+  "  "-hL* 
230  GOSUB  540: IF  LNUMtP>=LNUM 

THEN  L*(P)=TEXT*!GOTD  150 

^replace  line 
240  GOSUB  5801  GOTO  150  'insert 

the  line 
260  TEXT*="":FOR  1=1  TO  LEN(L* 

)  :  A=^ASC  (MID*  (L*,  I )  )  :  TEXT*= 

TEXT«+CHR*  CA+32t ( A>96  AND 

A<123)):NEXT 
270  DELIIiITER=INSTR(TEXT*,  "  '*) 

s  COMMAND*=TEXT*! ARS«=" " : IF 
DELIMITER  THEN  COMMAND*=L 

EFT* (TEXT*, DELIMITER-1 > ; AR 

G*=MID* (TEXT*, DELIMITER+1 ) 
ELSE  DELIMITER=INSTR(TEXT 

t,CHR*(34;  );IF    DELIfllTER    T 

HEN    CDMMAND*=LEFT*(TEXT*,D 

ELIMITER-1 ) : ARG*=MID* (TEXT 

*, DELIMITER) 
280  IF  COMMAND*<>"LIST"  THEN  4 

10 
290  OPEN  "scrn:*'  FOR  OUTPUT  AS 

#1 
300  IF  AR6*=""  THEN  FIRST=0:P= 

MAX-1:GDT0  340 
310  DELIMITER=INSTR(ARG*, "-") ; 

IF  DELIMITER=0  THEN  LNUM=V 

ALCARG*) : GOSUB  540:FIRST=P 

:GOTO  340 
320  FIRST=VAL(LEFT*{ARG*,DELIM 

ITER) ) :LAST=VAL(MID*(ARG$, 

DELIMITER+1) ) 
330  LNUM=FIRST:GOSUB  540: FIRST 

=P:LNUM=LAST: GOSUB  540: IF 

P=0  THEN  P=MAX-1 
340  FOR  X=FIRST  TO  P:N*=MID$(S 

TR*(LNUM(X) ) ,2)+"  " 
350  IF  CKFLAB=0  THEN  A*^"":GaT 

0  370 

360  Cf<SUM=0:A*=N*+L*CX)  :FOR  1  = 

1  TO  LEN(A*):CKSUM=(CKSUM+ 

ASC(MID*(A*,I))*I)  AND  255 

:NEXT:A*=CHR*(65+CKSUM/16) 

+CHR*(65+(CKSUM  AND  15))+" 
If 

370  PRINT  #1,A*+N*+L*CX) 

380  IF  INKEY*<>""  THEN  X=P 

390  NEXT  : CLOSE  #1:CKFLAG=0 

400  GOTO  130 

410  IF  COMMAND*="LLIST"  THEN  0 

PEN  "Iptl:"  FOR  OUTPUT  AS 

«1:G0T0  300 
420  IF  COMMAND*= "CHECK"  THEN  C 

KFLAG=1:60T0  290 
430  IF  COMMAND*<>"SAVE"  THEN  4 

50 

440  GOSUB  600: OPEN  ARG*  FOR  OU 
TPUT  AS  #1:ARG*="":G0T0  30 
0 

450  IF  COMMAND*<>"LOAD"  THEN  4 
90 


460  GOSUB  600: OPEN  ARG*  FOR  IN 

PUT  AS  #1:MAX=0;P=0 
470  WHILE  NOT  E0FC1):LINE  INPU 

T  #1,L*:BL=INSTR(L*,"  "J:B 

L»=LEFT* (L*, BL-1 ) : LNUM  CP)  = 

VAL(BL*) sL*{P)=MID*(L*,LEN 

CSTR*  CVAL (BL*) ))+!>: P=P+1 s 

WEND 
480  MAX=P: CLOSE  #1:G0T0  130 
490  IF  COMMAND*="NEW"  THEN  INP 

UT  "Erase  program  -  Are  yo 

u  sure" ;L*; IF  LEFT*(L*,i)= 

"y"  OR  LEFT*(L*, 1>="Y"  THE 

N  MAX=0! LNUM (0) =65536!: GOT 

0  130: ELSE  130 
500  IF  COMMAND*="BASIC"  THEN  C 

OLOR  7, 0,0: ON  ERROR  GOTO  0 

:CLS:END 
510  IF  COMMAND$<>"FILES"  THEN 

520 
515  IP  ARG*='-"  THEN  ARG9^'-A:" 

ELBE  SEL-1: GOSUB  600 
517  FILES  ARG*: GOTO  130 
520  PRINT"Syntax  error "i GOTO  1 

30 
540  P=0: WHILE  LNUM>LNUMCP)  AND 

P<MAX : P=P+1 : WEND: RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAX:L 

NUM ( X ) =LNUM ( X+1 ) : L*  <  X ) =L* ( 

X+1): NEXT: RETURN 
580  MAX=MAX+1:F0R  X=MAX  TO  P+l 
STEP  -1:LNUM(X)-=LNUM(X-1) 

;  L*  (  X )  =L*  (  X-  1 )  :  NEXT;  L*  (P )  ^^ 

TEXT* : LNUM ( P ) =LNUM : RETURN 
600  IF  LEFT*CARG*,1)<>CHR*(34> 
THEN  520  ELSE  ARG*=MID*(A 

RG*,2) 
610  IF  RIGHT* CARG$, 1)=CHR* (34) 
THEN  ARG*=LEFT*CARG*,LENt 

ARG*)-1) 
620  IF  SEL=0  AND  INSTR (ARG*, ". 
")=0  THEN  ARG*=ARG*+"-BAS" 
630  SEL=0: RETURN 
640  CLOSE  #lsCKFLAG=0: PRINT "St 

opped. ": RETURN  150 
650  PRINT  "Error  #"; ERR: RESUME 
150 

Program  3:  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10  VEC^PEEK(772)+256*PE£K{773) 

:LO=43 !HI-44 
20  PRINT  "AUTOMATIC  PROOFREADE 

R  FOR  ";:IF  VEC=42364  THEN 

[SPACE] PRINT  "C-64" 
30  IF  VEC^50556  THEN  PRINT  "VI 

C-20" 
40  IF  VEC=35158  THEN  GRAPHIC  C 

LR:PRINT  "PLUS/4  S,  16" 
50  IF  VEC=17165  THEN  LO=45:HI= 

46:GRAPHIC  CLR : PRINT "128 " 
60  SA=CPEEK(L0)+256*PEEK(HI) )+ 

6:ADR=SA 
70  FOR  J==0  TO  166:  READ  BYT :  POK 

E  ADR,BYT*ADR=ADR+1 jCHK=CHK 

+ByT:NEXT 
80  IF  CHKO20570  THEN  PRINT  "* 
ERROR*  CHECK  TYPING  IN  DATA 
STATEMENTS"; END 
90  FOR  J=l  TO  5: READ  RF,LF,HF: 

RS=SA+RF;HB-INT(RS/256) :LB^ 

RS-(256*HB) 
100  CHK=CHK+RF+LF+HF:POKE  SA+L 

F, LB: POKE  SA+HF, HB :NEXT 
110  IF  CHK<> 22054  THEN  PRINT  " 

*ERROR*  RELOAD  PROGRAM  AND 


[ SPACE }GHECK  FINAL  LINE": EN 
D 
120  POKE  SA+149, PEEK ( 772) :POKE 

SA+150,PEEK(773) 
130  IF  VEC=17165  THEN  POKE  SA4- 

14, 22: POKE  SA+18 , 23 : POKESA+ 

29|224;POKESA+139,224 
140  PRINT  CHR$(147) ;CHR$(17):" 

PROOFREADER  ACTIVE": SYS  SA 
150  POKE  HI,PEEK(HI)+1:P0KE  (P 

EEK(LO)+256*PEEK(HI ) ) -i ,0 :N 

EW 
160  DATA  120,169,73,141,4,3,16 

9  3  141  5  3 
170  DATA  88,96,165,20,133,167, 

165,21,133,168,169 
180  DATA  0,141,0,255,162,31,18 

1,199,157,227,3 
190  DATA  202,16,248,169,19,32, 

210,255,169,18,32 
200  DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210  DATA  200,185,0,2,240,46,20 

1,34,208,8,72 
220  DATA  165,176,73,255,133,17 

6,104,72,201,32,208 
230  DATA  7,165,176,208,3,104,2 

08,226,104,166,180 
240  DATA  24,165,167,121,0,2,13 

3,167,165,168,105 
250  DATA  0,133,168,202,208,239 

,240,202,165,167,69 
260  DATA  168,72,41,15,168,185, 

211,3,32,210,255 
270  DATA  104,74,74,74,74,168,1 

85,211,3,32,210 
280  DATA  255,162,31,189,22  7,3, 

149,199,202,16,248 
290  DATA  169,146,32,210,255,76 

,86,137,65,66,67 
300  DATA  68,69,70,71,7  2,74,75, 

77,80,81,82,83,88 
310  DATA  13,2,7,167,31,32,151, 

1 16 , 117 , 151 , 1 28 , 129 , 167 , 1 36 

,137 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial  Prograrmner 

10  C  =  0:  FDR  I  =  768  TO  76B  + 

68:  READ  A:C  =  C  +  A:  POKE  I 

,A:  NEXT 
20  IF  C  <  >  7258  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  *  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002:  GOTO  50 
40  PRINT  CHR$  (4) ; "IN#A*300" 
50  POKE  34,0:  HOME  :  POKE  34,1: 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  ® 
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mil  Y^  Machine  Language  Entry  Program 
iVILyV  For  Commodore  64  And  1 28 


Ottis  Cowper,  Technicol  Editor 


"MIX''  is  a  labor-saving  utility  that  allows 
almost  fail-safe  entry  of  machine  language 
programs.  Included  are  versions  for  the 
Commodore  64  and  128. 


Type  in  and  save  some  copies  oi  which- 
ever version  of  MLX  is  appropriate  for 
your  computer  (you'll  want  to  use  it  to 
enter  future  ML  programs  from  COM- 
PUTE!). Program  1  is  for  the  Commodore 
64,  and  Program  2  is  for  the  128  (128 
MLX  can  also  be  used  to  enter  Commo- 
dore 64  ML  programs  for  use  in  64 
mode).  When  you're  ready  to  enter  an 
ML  program,  load  and  run  MLX.  It  asks 
you  for  a  starting  address  and  an  ending 
address.  These  addresses  appear  in  the 
article  accompanying  the  MLX-format 
program  listing  you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-R  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and  end- 
ing addresses,  you'll  be  offered  the  op- 
tion of  clearing  the  workspace.  Choose 
this  option  if  you're  starting  to  enter  a 
new  listing.  If  you're  continuing  a  listing 
that's  partially  typed  from  a  previous 
session,  don't  choose  this  option. 

A  functions  menu  w^l  appear.  The 
fust  option  in  the  menu  is  ENTER 
DATA.  If  you're  just  starting  to  type  in  a 
program,  pick  this.  Press  the  E  key,  and 
type  the  first  number  in  the  first  line  of 
the  program  listing.  If  you've  already 
typed  in  part  of  a  program,  type  the  line 
number  where  you  left  off  typing  at  the 
end  of  the  previous  session  (be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry).  In  any  case, 
make  sure  the  address  you  enter  corre- 
sponds to  the  address  of  a  line  in  the 
listing  you  are  entering.  Otherwise,  you'll 
be  unable  to  enter  the  data  correctly.  If 
you  pressed  E  by  mistake,  you  can  return 
to  the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  address. 
(You  can  get  back  to  the  menu  from  most 
options  by  pressing  RETURN  with  no 
other  input.) 


Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first  two- 
digit  number  after  the  colon  (:).  Each  line 
represents  eight  data  bytes  and  a  check- 
sum. Although  an  MLX-format  listing 
appears  similar  to  the  "hex  dump"  list- 
ings from  a  machine  language  monitor 
program,  the  extra  checksum  number  on 
the  end  allows  MLX  to  check  your  typ- 
ing. (Commodore  128  users  can  enter 
the  data  from  an  MLX  listing  using  the 
built-in  monitor  if  the  rightmost  column 
of  data  is  omitted,  but  we  recommend 
against  it.  It's  much  easier  to  let  MLX  do 
the  proofreading  and  error  checking  for 
vou.) 


Figure  1:  64  IVILX  Keypad 
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When  you  enter  a  line,  MLX  recal- 
culates the  checksum  from  the  eight 
bytes  and  the  address  and  compares 
this  value  to  the  number  from  the  ninth 
column.  If  the  values  match,  you'll  hear 
a  bell  tone,  the  data  will  be  added  to  the 
workspace  area,  and  the  prompt  for  the 
next  line  of  data  will  appear.  But  if  MLX 
detects  a  typing  error,  you'll  hear  a  low 
buzz  and  see  an  error  message.  The  line 
will  then  be  redisplayed  for  editing. 

InvQiid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type 
spaces  between  the  columns;  MLX 
automatically  inserts  these  for  you.  You 
do  not  press  RETURN  after  typing  the 
last  number  in  a  line;  MLX  automatical- 
ly enters  and  checks  the  line  after  you 
type  the  last  digit. 

Only  the  numerals  0-9  and  the 
letters  A-F  can  be  typed  in.  If  you  press 
any  other  key  (with  some  exceptions 
noted  below),  you'll  hear  a  warning 
buzz.  To  simplify  typing,  128  MLX  re- 
defines the  function  keys  and  +  and  — 
keys  on  the  numeric  keypad  so  that  you 
can  enter  data  one-handed.  In  either 
case,  the  keypad  is  active  only  while 
entering  data.  Addresses  must  be  en- 
tered with  the  normal  letter  and  num- 
ber keys.  The  figures  below  show  the 
keypad  configurations  for  each  version. 

MLX  checks  for  transposed  charac- 
ters. If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  MLX  will  catch 
your  mistake.  There  is  one  error  that 
can  slip  past  MLX:  Because  of  the 
checksum  formula  used,  MLX  won't 
notice  if  you  accidentally  type  FF  in 
place  of  00,  and  vice  versa.  And  there's 
a  very  slim  chance  that  you  could  gar- 
ble a  line  and  still  end  up  with  a  combi- 
nation of  characters  that  adds  up  to  the 
proper  checksum.  However,  these  mis- 
takes should  not  occur  if  you  take  rea- 
sonable care  while  entering  data. 

Editing  Features 

To  correct  typing  mistakes  before  fin- 
ishing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  de- 
letes.) If  you  mess  up  a  line  really  badly, 
press  CLR/HOME  to  start  the  line  over. 
The  RETURN  key  is  also  active,  but 
only  before  any  data  is  typed  on  a  line. 
Pressing  RETURN  at  this  point  returns 
you  to  the  command  menu.  After  you 
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type  a  character  of  data,  MLX  disables 
RETURN  until  the  cursor  returns  to  the 
start  of  a  line.  Remember,  you  can  press 
CLR/HOME  to  quickly  get  to  a  line 
number  prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX 
has  detected  an  error.  To  make  correc- 
tions  in  a  line  that  MLX  has  redisplayed 
for  editing,  compare  the  line  on  the 
screen  with  the  one  printed  in  the  list- 
ing,  then  move  the  cursor  to  the  mis- 
take and  type  the  correct  key.  The 
cursor  left  and  right  keys  provide  the 
normal  cursor  controls.  (The  INST/ 
DEL  key  now  works  as  an  alternative 
cursor-left  key.)  You  cannot  move  left 
beyond  the  first  character  in  the  line.  If 
you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  line.  Dur- 
ing editing,  RETURN  is  active;  pressing 
it  tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  clear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Display  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing  (including  the  check- 
sum). When  you  press  D,  MLX  asks  you 
for  a  starting  address.  Be  sure  that  the 
starting  address  you  give  corresponds 
to  a  line  number  in  the  listing.  Other- 
wise, the  checksum  display  will  be 
meaningless,  MLX  displays  program 
lines  until  it  reaches  the  end  of  the 
program,  at  which  point  the  menu  is 
redisplayed.  You  can  pause  the  display 
by  pressing  the  space  bar.  (MLX  finish- 
es printing  the  current  line  before  halt- 
ing.) Press  space  again  to  restart  the 
display.  To  break  out  of  the  display  and 
get  back  to  the  menu  before  the  ending 
address  is  reached,  press  RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  load  them  back  into  the 
computer.  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

You'll  notice  the  disk  drive  starting 
and  stopping  several  times  during  a 
load  or  save  (save  only  for  the  128 
version).  Don't  panic;  this  is  normal 
behavior.  MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands 
(128  MLX  makes  use  of  BLOAD).  Disk 
users  should  also  note  that  the  drive 
prefix  0:  is  automatically  added  to  the 
filename  (line  750  in  64  MLX),  so  this 
should  not  be  included  when  entering 


the  name.  This  also  precludes  the  use  of 
@  for  Save-with'Replace,  so  remember 
to  give  each  version  you  save  a  different 
name.  The  128  version  makes  up  for 
this  by  giving  you  the  option  of  scratch- 
ing the  existing  file  if  you  want  to  reuse 
a  filename. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting 
address  to  the  ending  address,  so  the 
save  or  load  may  take  longer  than  you 
might  expect  if  you've  entered  only  a 
small  amount  of  data  from  a  long  list- 
ing. When  saving  a  partially  completed 
listing,  make  sure  to  note  the  address 
where  you  stopped  typing  so  you'll 
know  where  to  resume  entry  when  you 
reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX; 
LOAD  ENDED  AT  address,  which 
means  the  file  you're  trying  to  load 
ends  before  the  ending  address  you 
specified  when  you  started  MLX;  and 
TRUNCATED  AT  ENDING  AD- 
DRESS, which  means  the  file  you're 
trying  to  load  extends  beyond  the  end- 
ing address  you  specified  when  you 
started  MLX.  If  you  see  one  of  these 
messages  and  feel  certain  that  you've 
loaded  the  right  file,  exit  and  renin 
MLX,  being  careful  to  enter  the  correct 
starting  and  ending  addresses. 

The  128  version  also  has  a  CATA- 
LOG DISK  option  so  you  can  view  the 
contents  of  the  disk  directory  before 
saving  or  loading. 

The  QUIT  menu  option  has  the 
obvious  effect — ^it  stops  MLX  and  en- 
ters BASIC.  The  RUN/STOP  key  is  dis- 
abled, so  the  Q  option  lets  you  exit  the 
program  without  turning  off  the  com- 
puter. (Of  course,  RUN/STOP-RES- 
TORE also  gets  you  out.)  You'll  be 
asked  for  verification;  press  Y  to  exit  to 
BASIC,  or  any  other  key  to  return  to  the 
menu.  After  quitting,  you  can  type 
RUN  again  and  reenter  MLX  without 
losing  your  data,  as  long  as  you  don't 
use  the  clear  workspace  option. 

The  Finished  Product 

When  you've  finished  typing  all  the 
data  for  an  ML  program  and  saved  your 
work,  you're  ready  to  see  the  results. 
The  instructions  for  loading  and  using 
the  finished  product  vary  from  program 
to  program.  Some  ML  programs  are 
designed  to  be  loaded  and  run  like 
BASIC  programs,  so  all  you  need  to 
type   is   LOAD   ** filename' \%   for  disk 


(DLOAD  ''filename''  on  the  128)  or 
LOAD  "filename*'  for  tape,  and  then 
RUN.  Such  programs  will  usually  have 
a  starting  address  of  0801  for  the  64  or 
ICOl  for  the  128.  Other  programs  must 
be  reloaded  to  specific  addresses  with  a 
command  such  as  LOAD  "file- 
name",%,l  for  disk  (BLOAD  "filename" 
on  the  128)  or  LOAD  "filename", I, I  for 
tape,  then  started  ^vith  a  SYS  to  a  partic- 
ular memory  address.  On  the  Commo- 
dore 64,  the  most  common  starting 
address  for  such  programs  is  49152, 
which  corresponds  to  MLX  address 
COOO.  In  either  case,  you  should  always 
refer  to  the  article  which  accompanies 
the  ML  listing  for  information  on  load- 
ing and  running  the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Auto- 
matic Proofreader"  to  type  the  new 
MLX,  and  then  test  your  copy  thorough- 
ly before  first  using  it  to  enter  any  sig- 
nificant amount  of  data.  Make  sure  all 
the  menu  options  work  as  they  should. 
Enter  fragments  of  the  program  starting 
at  several  different  addresses,  then  use 
the  Display  option  to  verify  that  the 
data  has  been  entered  correctly.  And  be 
sure  to  test  the  Save  and  Load  options 
several  times  to  insure  that  you  can 
recall  your  work  from  disk  or  tape. 
Don't  let  a  simple  typing  error  in  the 
new  MLX  cost  you  several  nights  of 
hard  work. 


Program  1 :  MLX  For 
Commodore  64 

SS  10  REM  VERSION  1.1:  LINES  8 
30,950  MODIFIED,  LINES  4 
85-487  ADDED 
POKE  56,50;CLR:DIM  IN?, 
I,J,A,B,A$,B$,A(7),M$ 
C4=48  :C6=^16  :C7=7  :Z2=^2:Z 
4=254 : Z5=255 : Z6=256 : Z7= 
127 

FA=PEEK ( 45 ) +Z6*PEEK ( 46 ) 
: BS=PEEK ( 55 ) +26  *PEEK ( 56 
)  :H$=="0123456789ABCDEF" 
R$=CHR$ { 13 ) ;L?=" {LEFT } " 
:S$="  ";D$=CHR$(20) :Z$= 
CHR$C0):T$="[13  RIGHT}" 

CQ  140  SD=54272iFOR  I=SD  TO  SD 
+23: POKE  I , 0 :NEXT: POKE 
{SPACE}SD-l-24,15;POKE  78 
8,52 

FC  150  PRI NT "{ CLR 1" CHR${1 42 )CH 
R9(8):POKE  53280, 15 :POK 
E  53281,15 

EJ  160  PRINT  T$"  {REDHRVS} 
{2  SPACES  }g8  (§1 
(2  SPACES] "SPC( 28)" 
(2  SPACES} {OFF} [BLUl  ML 
X  II  {RED}fRVS} 
{2  SPACES }"SPCC 28)" 
{12  SPACES llBLU}" 

FR  170  PRINT" {3  DOWN} 

{3  SPACES } COMPUTE! 'S  MA 


EK 

100 

DM 

110 

CJ 

120 

SB 

130 
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[3  DOWN}" 
JB  180  PRINT" {BLK} STARTING  ADD 

RESSg4i " 7 :GOSUB300 :SA=A 

D:GOSUB1040:IF  F  THEN18 

0 
GF  190  PRINTMBLK}  {2  SPACES} EN 

DING  ADDRESSi4i"? :GOSUB 

300:EA=AD:GOSUB1030;IF 

[ SPACE ]F  then 190 
KR  200  INPUT" {3  DOWN } { BLK } CLEA 

R  WORKSPACE  [Y/N]^4i"rA 

$aF  LEFT$(A$,1)<>"Y"TH 

EN220 

pg  210  print"! 2  down} {blu} work 
ing . . . " ? ! fori=bs  to  bs+ 
ea-sa+7:p0ke  i,0:next;p 
ri nt "done" 

dr  220  printtab(10) "[2  down} 
{blk}[rvs]  mlx  command 
{space} menu  i down} ^41": 

PRINT    T$"[RVS}e{OFF}NTE 
R    DATA" 
ED    230    PRINT    T$" {RVS}d{OFF} ISP 

lay  data": print  t?" 
Crvs}l{off}oad  file" 

JS    240    PRINT    T$"[RVS}S{0FF}AVE 
file": PRINT    T$"IrVS}Q 

{0FF}UITl2    DOWN} {elk}" 
JH    250    GET    A$tIF    A$^N$    THEN250 
HK    260    A=0:FOR    1=1    TO    5: IF   A$= 

HID$("EDLSQ", 1,1) THEN   A 

=  1:1=^5 
FD  270  NEXT: ON  A  GOTO420, 610 , 6 

90|700,280:GOSUB1060:GO 

TO  2  50 
EJ  280  PRINT" (RVS}  QUIT  ":INPU 

T  "  {DOWN  }i4i ARE  YOU  SURE 
CY/n3"?A$;IF  LEFT${A$, 

1)<>"Y"THEN220 
EM  290  POKE  SD+24,0:END 
JX  300  IN$=N$:AD=0:INPUTIW?:IF 

LEN(  IN$)  <>4THENRETURtJ 
KF  310  B$=IN?:GOSUB320:AD=A:B$ 

=MID$  C IN$ , 3 ) : G0SUB3  20  :  A 

D^AD*256+A:RETURN 
PP    320    A=0:FOR   J=l    TO    2:A$=MID 

$  C  B?  ,  J  ,  1  )  :  B=ASC  C  A$  )  -C4-I- 

( A$> "^" ) *C7 ; A=A*C6+B 
JA  330  IF  B<0  OR  B>15  THEN  AD= 

0:A=-1:J=2 
GX  340  NEXT: RETURN 
CH  350  B=INT{A/C6) : PRINT  MID$ ( 

H$,B+1,1) ; :B=A-B*C6:PRI 

NT  MID$(H§,B+I,1); :RETU 

RN 
RR    360    A=INT(AD/Z6) :GOSUB350:A 

=AD-A*Z6 :G0SUB3 50 : PRINT 

BE  370  CK=INT(AD/Z6) :CK=AD-Z4* 

CK+Z5* ( CK>  Z7 ) :GOTO390 
PX  380  CK^CK*Z2+Z5*(CK>Z7)+A 
JC  390  CK=CK+Z5*(CK>Z5) iRETURN 
QS  400  PRINT "[down) STARTING  AT 

g4B"7:GOSUB300:IF  IN$ <> 

N?  THEN  GOSUB1030:IF  F 

f SPACE }THEN400 
EX  410  RETURN 
HD  420  PRINT "{RVS}  ENTER  DATA 

( SPACE }":GOSUB400: IF  IN 

$^N$    THEN220 
JK    430    OPEN3,3:PRINT 
SK    440    POKE198,0:GOSUB360:IF    F 
THEN    PRINT    IN$;PRINT" 

(up} {5    RIGHT}"? 
GC    450    FOR    1=0    TO    24    STEP    3:B? 

=S$;FOR    J=l    TO    2:IF    F   T 

HEN    B$=MID$(IN$,I+J,1) 
HA   460    PRINT"(RVS}"B$L?r :IF    I< 

24THEN    PRINT" {OFF}"; 
HD    470    GET    A$ : I F    AS=N$    THEN470 


FK    480    IF(A$>"/"ANDA$<":")OR(A 

$>"^"ANDA$<"G" )THEN540 
GS    465    A=-{A$  =  "M")-2*(A$^"/')- 
3*(A$=".")-4*CA$^"/")-5 
*(A?="J")-6*(A?="K") 
FX    486    A=A-7*(A?="L")"8*(A$="; 
•'  )^9*(A$  =  "U"  )-10*  (A$  =  "I 
" ) -11* (A$="0" ) -12* (A?=" 
P") 
CM    487    A=A-13*(A$=S$):IF   A  THE 
N    A$"MID$( "ABCD123E456F 
0",A,1) ;GOTO    540 
MP    490    IF    A$=R$    AND(  (r'=0)AND{J 
=1)0R    F)THEN    PRINT    B$ ; : 
J=2:NEXT:I=24:GOTO550 
KC    500    IF    A$="{HOME}"    THEN    PRI 
NT    B$:J=2:NEXT:I=24:NEX 
T:F=0:GOTO440 
MX    510    IF  {A$=="  {RIGHT}  ")ANDF   TH 

ENPRINT    B$L$; :GOTO540 
GK    520    IF    A$<>L$    AND    A$<>D?    OR 
({I=0)AND(J=1))THEN   GOS 
UB1060rGOTO470 
HG    530    A$=L$+S$+L$! PRINT    B$L$ ? 
jJ=2~J:IF   J    THEN    PRINT 
t SPACE} L?; : 1=1-3 
QS    540    PRINT    A$r:NEXT   J: PRINT 

{ SPACE }S$? 
PM    550    NEXT    It PRI NT: PRINT "{UP} 
{5    RIGHT}"? :INPUT#3,IN$ 
:IF    IN$"N$    THEN    CL0SE3: 
GOTO220 
QC    560    FOR    1=1    TO    25    STEP3:B$= 
MID$ ( IN$ , I ) :GOSUB320 : IF 
I<25    THEN   GOSUB380:A(I 
/3)=A 
PK    570    NEXT: IF   A<>CK    THEN    GOSU 
B1060: PRINT "{BLK] {RVS} 
(space} ERROR:     REENTER   L 
INE    ^4l":F=l:GOTO440 
HJ    580    GOSUB1080;B=BS+AD-SA:FO 
R    1=0    TO    7:P0KE    B+I,A(t 
) :NEXT 
QQ    590    AD==AD+B:IP   AD>EA    THEN    C 
L0SE3 : PRINT " { DOWN } { BLU } 
**    END    OF    ENTRY    **{BLK} 
{2    DOWN}":GOTO700 
GQ    600    F=^0:GOTO440 
QA    610    PRINT"{CLR} {DOWN} {RVS} 
{SPACE} DISPLAY    DATA    ":G 
OSUB400:IF    IN$=N$    THEN2 
20 
RJ    620    PRI NT "{DOWN} {BLU} PRESS: 
{RVS} SPACE {off}    to    PAU 
SE,     {RVS} RETURN {off}    TO 
BREAK B4i{ DOWN}" 
KS    630    GOSUB360:B=BS+AD-SA:FOR 
I=BTO    B+7:A=PEEK(I) :GOS 
UB350!GOSUB380: PRINT    S$ 

CC    640    NEXT:PRINT"{RVS}"r ;A=CK 

:GOSUB350:PRINT 
KH    650    F=1:AD=AD+8:IF    AD>EA    TH 

ENPRINT "{DOWN} {BLU}**    E 

ND    OF    DATA    **":GOTO220 
KC    660    GET    A$:IF    A$=R9    THEN    GO 

SUB1080:GOTO220 
EQ    670    IF    A$=S$    THEN    F=F+1:G0S 

UB1080 
AD    680    ONFGOTO630,660,630 
CM    690    PRINT "{DOWN} {RVS}    LOAD 

{SPACE} DATA    " :0P=1 :GOTO 

710 
PC    700    PRINT  "{[X)WN}{  RVS}    SAVE 

{SPACE} FILE    ":OP=0 
RX    710    IN$=N$: INPUT" {DOWN }FILE 

NAMEMi'^.-IN^siP"    IN$=N$ 

{ SPACE }THEN2 20 
PR  720  F=0; PRINT "{DOWN} {BLK} 

{ RVS }T I  OFF JAPE  OR  {RVS} 

D{0FF}ISK:  B4§"; 


FP  730  GET  A$:IF  A$="T"THEN  PR 

INT "T { DOWN } " : GOTO880 
HQ  740  IF  A$<>"D"THEN730 
HH  750  PRINT"d{D0WN}":0PEN15,8 

,15, "I0:":B=EA-SA:IN?=" 
0:"+IN$:IF  OP  THEN810 
SQ  760  OPEN  1,B,8,IN$+",P,W":G 

OSUB860:IF  A  THEN220 
FJ  770  AH=INTCSA/256) :AL-SA-(A 

H*256) :PRINT#1,CHR$CAL) 

;CHR$(AH); 
PE  780  FOR  1=0  TO  B: PRINTS 1,CH 

R${PEEK(BS+I) ) ; :IF  ST  T 

HENB00 
FC  790  NEXT:CL0SE1 :CL0SE15:G0T 

0940 
GS  800  GOSU Bl 060: PRI NT "{DOWN} 

{BLK} ERROR  DURING  SAVE: 

§41 " :GOSUB860 :GOTO220 
MA  810  OPEN  1,8,8,IN$+",P,R":G 

OSUB860:IF  A  THEN220 
GE  820  GET#1,A$,B$:AD=ASC{A$+Z 

$)+256*ASC(B?+Z$) :IF  AD 

<>SA  THEN  F=1:GOTO850 
RX  830  FOR  1=0  TO  B:GET#l,A$iP 

OKE  BS+I,ASC(A$+Z$} :IF( 

I<>B)AND  ST  THEN  F=2:AD 

=I:I=B 
FA  840  NEXT: IF  ST<>64  THEN  F=3 
FQ  850  CLOSEl :CLOSE15:ON  ABS { F 

>0)+l  GOTO960,970 
SA  860  INPUT*15,A,A$:IF  A  THEN 
CLOSEl :CL0SE15 :GOSUB10 

60: PRINT "{ RVS }ERROR:     "A 

GQ  870  RETURN 

EJ  880  POKEI8  3,PEEK(FA+2) iPOKE 

lS7,PEEK(FA+3 ) ;P0KE188, 

PEEK(FA+4)  :IFOP^THEN92 

0 
HJ  890  SYS  63466:IF(PEEK(783)A 

NDDTHEN   GOSUB1060:PRIN 

T" {DOWN} {RVS}    FILE    NOT 

{SPACE} FOUND    ":GOTO690 
CS    900    AD^PEEK{829)+256*PEEK(8 

30):IF   ADOSA   THEN    F=l: 

GOTO970 
SC  910  A=PEEKt831)+256*PEEK(83 

2)-l :F^F-2*{A<EA)-3*(A> 

EA) :AD=A-AD:GOTO930 
KM  920  A^SA:B=EA+1:GOSUB1010:P 

OKE780,3:SYS    63338 
JF   930    A=BS;B=BS+(EA-SA)+1:G0S 

UBI010:ON    op    GOTO950:SY 

S    63591 
AE   940    GOSU Bl 080: PRI NT "{BLU}** 
SAVE    COMPLETED    **":GOT 

O220 
XP    950    POKE147,0:SYS    63562:IF 

{SPACE}ST>0    THEN970 
FR    960    GOSUB1080:PRINT"{BLU}** 
LOAD    COMPLETED    **":GOT 

DP    970    GOSUB1060: PRINT "{BLK} 

{RVS} ERROR    DURING    LOAD: 
{DOWN}i43"!ON   F  G0SUB98 
0, 990,1000 :GOTO220 
PP    980    PRINT "INCORRECT    STARTIN 
G   ADDRESS    ( " ; tGOSUB360 : 
PRINT") ": RETURN 
GH    990    PRINT "LOAD    ENDED   AT    "?: 
AD=SA+AD:GOSUB360 : PRI  NT 
D$ : RETURN 
FD    1000    PRINT "TRUNCATED    AT    END 

ING  ADDRESS": RETURN 
RX  1010  AH=INT(A/256) :AL=A-CAH 
*256 ) : POKE193 , AL: POKEl 
94, AH 
FF  1020  AIi=INT(B/256)  iAL=B-CAH 
*256):POKE174,AL: POKEl 
75, AH: RETURN 
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FX    1030    IF   AD<SA   OR   AD>EA   THEN 

1050 
HA    1040    IF(AD>511    AND    AD<40960 

)OR(AD> 49151    AND   AD<53 

248) THEN    GOSUB1080 tF-0 

: RETURN 
HC    1050    GOSUB1060:PRINT"{RVS} 

{space) INVALID   ADDRESS 
{  EX)WN  1  {  BLK 1  "  :  F=l  !  RETU 

RN 
AR    1060    POKE    SD+5,31:POKE    SD-t-6 

^208;POKE    SD, 240: POKE 

{SPACE }SD+ 1,4: POKE    SD+ 

4,33 
DX    1070    FOR    S^l    TO    100iNEXT:GO 

TO1090 
PF  1080  POKE  SD+5,8:POKE  SD+6, 

240: POKE  SD,0:POKE  SD+ 

1,90: POKE  SD+4,17 
AC  1090  FOR  S=l  TO  100;NEXT!pO 

KE  SD+4,0;POKE  SD,0:PO 

KE  SD+ 1,0; RETURN 

Program  2:  MLX  For 
Commodofe  128 

AE  100  TRAP  960: POKE  4627,128: 
DIM  NL$,A(7) 

XP  110  Z2:=2rZ4=254:Z5=255:Z6=2 
56;Z7=127:BS=256*PEEK(4 
627):EA=65280 

FB  120  BE$=CHR$(7) :RT$=CHR$(13 
) : DL$^CHR$ { 20 ) ; SP$=CHR$ 
(32):LF$=CHR${157) 

KE  130  DEF  FNHB(A)«INT(A/256): 
DEF  FNLBCA)=A-FNHB(A)*2 
56:DEF  FNAD{A)=PEEK( A)+ 
256*PEEKCA+1) 

JB  14e  KEY  1,"A":KEY  3,"B";KEY 
5,  "C":KEY  7/'D":V0L  15 
:IF  RGR(0)=5  THEN  PAST 

FJ  150  PRINT" {CLR}"CHR$( 142 ) ;C 
HR$(a):COLOR  0,15:COLOR 
4,15:COLOR  6,15 

GQ  160  PRINT  TAB(12)"[KED} 
{RVSj{2  SPACES ^9  03 
{2  SPACES} "RT?; TAB (12)" 
{RVS}{2  SPACES] {OFF} 
{BLU}  128  MLX  {RED] 
{RVS}{2  SPACES) "RT$; TAB 
{i2)"{RVS}{l3  SPACES) 
{BLU)" 

FE  170  PRINT" {2  DOWN) 

{3  SPACES)COMPUTEi 'S  MA 
CHINE  LANGUAGE  EDITOR 
[2  DOWN}" 

DK  180  PRINT" {BLK) STARTING  ADD 
RESSi4i"r sGOSUS  260:  IF 
{SPACE) AD  THEN  SA^AD:EL 
SE  180 

FH  190  PRINT" [BLK) {2  SPACES) EN 
DING  ADDRESSi4i"; :GOSUB 
260: IF  AD  THEN  EA=AD : E 
LSE  190 

HF  200  PRINT "{DOWN) {BLK) CLEAR 
[SPACE) WORKSPACE  [Y/N]? 
g43":GETKEY  A$:IF  A$ <> " 
Y"  THEN  220 

QH  210  PRINT" {down) {BLU} WORKIN 
G.,.";:BANK  0:FOR  A=BS 
{SPAC£)TO  BS+(EA'SA)+7: 
POKE  A,0;NEXT  Ai PRINTED 
ONE" 

DC  220  PRINT  TAB(10)"IdOWN) 

|BLK}[RVS}  MLX  COMMAND 
[SPACE] MENU  i4  3{DOWN)": 
PRINT  TAB(13)"{RVS)E 
{0PF)NTER  DATA"RT$rTAB( 
13)"{RVS]D{0FF]ISPLAY  D 
ATA"RT$ ;TAB ( 13 ) " { RVSJl 

{off)oad  file" 


HE  230  PRINT  TAB ( 13 ) " { RVS ) S 

{OFF} AVE  FILE "RT$ ; TAB (1 

3) "{rvsJc{off]atalog  DI 

SK"RT$ ; TAB ( 1 3 ) " { RVS ]Q 

{0FF)UIT{D0WN) [BLK]" 
AP  240  GETKEY  A$ : A=IHSTR( "EDLS 

CQ",A$):ON  A  GOTO  340,5 

50 , 640 , 650 , 9  30 , 940 : GOSU 

B  950:GOTO  240 
SX  250  PRINT "STARTING  AT"r;GOS 

UB  260:IF(AD<>0)OR{A$=N 

L$)THEN  RETURN: ELSE  250 
BG  260  A$=NL$: INPUT  A$:IF  LEN ( 

A$)-4  THEN  AD=DEC(A$) 
PP  270  IF  AD=0  THEN  BEGIN: IF  A 

$<>NL$  THEN  300; ELSE  RE 

TURN: BEND 
MA  280  IF  AD<SA  OR  AD>EA  THEN 

[SPACE] 300 
PM  290  IP  AD>511  AND  AD<65280 

lSPACE]THEN  PRINT  BE$;: 

RETURN 
SQ  300  GOSUB  950: PRINT "[RVS]  I 

NVALID  ADDRESS  {DOWN) 

{ BLK ] " : AD=0 : RETURN 
RD  310  CK=FNHB(AD) :CK^AD-24*CK 

i-Z5*(CK>Z7):GOTO  330 
DD  320  CK=CK*Z2+Z5*(CK>27)+A 
AH  330  CK=CK+25*(CK>Z5) : RETURN 
QD  340  PRINT  BE$;"{RVS]  ENTER 

{SPACE) DATA  ": GOSUB  250 

:IF  A$=NL$  THEN  220 
JA  350  BANK  0 : PRINT : F=0 : OPEN  3 

,3 
BR  360  GOSUB  310: PRINT  HEX? (AD 

)+":"; ;IF  F  THEN  PRINT 

{ SPACE  j  L$ : P RI NT " { UP } 

{5  RIGHT)"; 
QA  370  FOR  1=0  TO  24  STEP  3:B$ 

=SP?:FOR  J=l  TO  2: IF  F 

{SPACE] THEN  B$=MID$(L$, 

I+J.l) 
PS  380  PRINT" { RVS ] "S$  +  LF?r  ;  IF 

f SPACE ]I< 24  THEN  PRINT" 

{OFF)"; 
RC  390  GETKEY  A$:IF  {A$>"/"  AN 

D  A$<": ")  OR(A$> "^"  AND 
A$<"G")  THEN  470 
AC  400  IF  A$="-f  THEN  A$^"E"!G 

OTO  470 
QB  410  IF  A$="-"  THEN  A$="F":G 

OTO  470 
FB  420  IF  A$=RT$  AND  ((1^0)  AN 

D  (J=l)  OR  F)  THEN  PRIN 

T  B?; :J=2:NEXTjI=24:G0T 

O  480 
RD  43  0  IF  A$-"{HOME)"  THEN  PRI 

NT  B$:J=2:NEXTjI=24:NEX 

T:F=0;GOTO    360 
XB    440    IF     (AS=" {RIGHT}")    AND    F 
THEN    PRINT    B$+LF$?:GOT 

O    470 
JP    450    IF    A$<>LF$    AND    A$<>DL$ 

{SPACE) OR    ((1=0)    AND    (J 

=1))  THEN  GOSUB  950:GOT 

0  390 
PS  460  A$=LF$+SP$+LF$: PRINT  B$ 

+LF$; :J=2'J:IF  J  THEN  P 

RINT  LF$; i 1=1^3 
GB  470  PRINT  A$;:NEXT  J:PRINT 

{ SPACE )SP$; 
HA  480  NEXT  I : PRINT  J  PRINT" {UP ) 

{5  RIGHT]"; :L$=" 

{27  SPACES}" 
DP  490  FOR  1=1  TO  25  STEP  3:GE 

T#3,A$,B$:IF  A$=SP?  THE 

N  I=25:NEXT:CLOSE  3:G0T 
O  220 
BA  500  A$=A$+B$:A=DEC(A$):MID$ 

(L?,I,2}=A?:IF  K25  THE 
N  GOSUB  320:A(I/3)=A:GE 
T#3,AS 


AR  510  NEXT  I: IF  A<>CK  THEN  GO 

SUB  950: PRINT: PRINT" 

[RVS)  ERROR:  REENTER  LI 

NE  ":F=1:G0T0  360 
DX  520  PRINT  BE$:B=BS+AD-SA;FO 

R  1=0  TO  7; POKE  B+I.A(I 

) tNEXT  I 
XB  530  F=0;AD=AD+8:IF  AD<=EA  T 

HEN  360 
CA  540  CLOSE  3 : PRINT" [DOWN] 

{BLU}**  END  OF  ENTRY  ** 

[BLK] [2    DOWN]":GOTO    650 
MC    550    PRINT    BE$ r " { CLR ) { DOWN} 

{RVS)    DISPLAY    DATA    " : GO 

SUB  250: IF  A$=NL$  THEN 

{SPACE} 220 
JF  560  BANK  0 : PRINT" { DOWN) 

{ BLU ) PRESS :  { RVS } SPACE 

{OFF}  TO  PAUSE,  { RVS } RE 

TURN [OFF]  TO  BREAKi4§ 

{DOWN)" 
XA  570  PRINT  HEX$(AD)+": ": :GOS 

UB  310:B=BS+AD-SA 
DJ  580  FOR  I=B  TO  B+7:A«PEEK(I 

): PRINT  RIGHT$(HEX$(A), 

2);SP?; :GOSUB  320: NEXT 

{SPACE] I 
XB  590  PRINT" {RVS}"; RIGHT? (HEX 

$(CK),2) 
GR  600  F=1:AD^AD+8:IF  AD>EA  TH 

EN  PRINT" [BLU}**  END  OF 
DATA  **":GOTO  220 
EB  610  GET  A$:IF  A$=RTS  THEN  P 

RINT  BE$:GOTO  220 
QK  620  IF  A$^SP$  THEN  P=F+::PR 

INT  BE$; 
XS  630  ON  F  GOTO  570,610,570 
RF  640  PRINT  BE$ "{ DOWN) [ RVS )  L 
OAD  DATA  ";OP=l:GOTO  66 

0 
SP  650  PRINT  BE$" {down) [RVS]  S 

AVE  FILE  ":OP=0 
DM  660  F=0:F$=^NL$:  INPUT  "FILENA 
MEi4i"rF$:IF  F5=NL$  THE 
N  220 
RF  670  PRINT" {down] [BLK] {RVS} T 

{0FF]APE  OR  {RVS)D{0FF} 

ISK:  ^48"; 
SQ  680  GETKEY  A$:IF  A$=="T"  THE 
N  B50:ELSE  IF  A$<>"D"  T 
HEN  680 

SP  690  PRINT"DISK{DOWN}":IP  OP 
THEN  760 

EH  700  D0PEN#1, {F$+",P"),W:IF 
{ SPACE )DS  THEN  A$=D?:GO 
TO  740 

JH  710  BANK  0;POKE  BS-2,FWLB(S 
A): POKE  BS-1,FNHB(SA) :P 
RINT "SAVING  ";F$: PRINT 

MC  720  FOR  A=BS-2  TO  BS+EA-SA: 
PRINT#1,CHR$(PEEK(A)); : 
IF  ST  THEN  A$-"DISK  WRI 
TE  ERROR": GOTO  7  50 

GC  730  NEXT  A: CLOSE  Is  PRINT" 
{BLU}**  SAVE  COMPLETED 
{SPACE} WITHOUT  ERRORS  * 
*":GOTO  220 

RA  740  IF  DS=63  THEN  BEGINsCLO 
SE  1: INPUT "{BLK I  REPLACE 
EXISTING  FILE  [Y/NJMI 
";A$:IF  A$="Y"  THEN  SCR 
ATCH(F$) : PRINT: GOTO  700 
:ELSE  PRINT "{ BLK )":GOTO 
6G0:BEND 

GA  750  CLOSE  1: GOSUB  950; PRINT 
"{BLK] [RVS)  ERROR  DURIN 
G  SAVE:  §41": PRINT  A$ :G 
OTO  220 

FD  760  DOPEN^^l,  (F$'f",P"):IF  DS 
THEN  A?=DS?:F=4; CLOSE 
{ SPACE }1:G0T0  790 
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PX  770 


KB  780 


RQ  790 


ER  800 


QJ  810 


DP 

820 

EB 

830 

FP 

840 

KS 

850 

XX 

860 

FG  870 
AB  880 

CP  890 

GQ  900 

JD  910 
XB  920 
CP  930 
MM  940 


JE 

950 

AF 

960 

MK 

970 

KJ 

980 

DO 

990 

GET#l,A?,B$tCLOSE  1:AD= 
ASC(A$)+256*ASC(B$) :IF 
{SPACE}AD<>SA  then  F=1: 
GOTO  790 

PRINT  "L.OADING  *';F$;PRIN 
T:BLOAD(F$),B0,P(BS) :AD 
=^SA+FNAD  ( 1 74  )  -BS-1  :  F=-2 
*{AD<EA)-3*(AD>EA) 
IF  P  THEN  800:ELSE  PRIN 
T"tBLU}**  LOAD  COMPLETE 
D  WITHOUT  ERRORS  **":G0 
TO  220 

GOSUB  950 : PRINT "tBLKl 
IRVS)  ERROR  DURING  LOAD 
:  g4§":0N  F  GOSUB  810,8 
20,830,840:GOTO220 
PRINT "INCORRECT  START IN 
G  ADDRESS  ( " : HEX$ ( AD ) ; " 
)": RETURN 

PRINT "LOAD  ENDED  AT  ";H 
EX$(AD) : RETURN 
PRINT "TRUNCATED  AT  ENDI 
NG  ADDRESS  ("HEX?(EA)") 
"t RETURN 

PRINT "DISK  ERROR  "?A?;R 
ETURN 

PRINT "TAPE " J AD=POINTER ( 
F$):BANK  1 : A-PEEK ( AD ) : A 
L=PEEK(AD+1) :AH=PEEK{AD 
+2) 

BANK  15: SYS  DEC("FF68") 
,0,1:SYS  DEC("FFBA"),1, 
1,0: SYS  DEC("FFBD"),A,A 
L,AH:SYS  DEC ( "FF90" ) , 12 
8:IF  OP  THEN  890 
PRINT :A=SA:B"EA+ I: GOSUB 
920: SYS  DEC("E919"),3: 
PRINT "SAVING  ";F$ 
A=BS : B=BS+ ( EA-SA ) +1 : GOS 
UB  920: SYS  DEC("EA18"): 
PRINT" [down} {bLU}**  TAP 
E  SAVE  COMPLETED  **":G0 
TO  220 

SYS  DECC"E99A") :PRINT:I 
F  PEEK (2816) =5  THEN  GOS 
UB  950: PRINT "{DOWN] 
(BLKHRVS]  FILE  NOT  FOU 
ND  ":G0TO  220 
PRINT "LOADING  ...{DOWN] 
":AD^PNAD(2817) rIF  AD<> 
SA  THEN  F=1:G0T0  800: EL 
SE  AD=FNAD(2819)-l;F=-2 
*{AD<EA)-3*(AD>EA) 
A=BS:B=BS+(EA-SA)+1:G0S 
UB  920: SYS  DEC ( "E9FB" ) : 
IF  ST>0  THEN  800: ELSE  7 
90 

POKE193 , FNLB ( A ) : P0KE194 
,FNHB(A):P0KE  174,FNLB( 
B):POKE  175,FNHB(B):RET 
URN 

CATALOG : PRINT " [DOWN] 
{BLUl**  PRESS  ANY  KEY  F 
OR  MENU  **":GETKEY  A$sG 
OTO  220 

PRINT  BE$"{RVSj  QUIT 
g4|";RT$r"ARE  YOU  SURE 
lSPACEjiY/N]?":GETKEY  A 
$:IF  A$<>"Y"  THEN  220:E 
LSE  PRINT" {CLR}": BANK  1 
5:  END 

SOUND  1,500, 10: RETURN 
IF  ER-14  AND  EL=260  THE 
N  RESUME  300 
IF  ER=14  AND  EL==5  00  THE 
N  RESUME  NEXT 
IF  ER=4  AND  EL=7a0  THEN 

F=4:A?=DS$:RESUME  800 

IF  ER=30  THEN  RESUME: EL 

SE  PRINT  ERR$(ER);"  ERR 

OR  IN  LINE"; EL        ^ 
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Entry  Program  For 
,  Apple 


To  make  it  easier  to  enter  machine  lan- 
guage programs  into  your  computer  with- 
out typos,  COMPUTE!  is  introducing  its 
"MIX"  entry  program  for  the  Apple  U 
series.  It's  our  best  MIX  yet.  It  runs  on  the 
H  II +,  lie,  and  lie,  and  with  either  DOS 
3.3  or  ProDOS. 


A  machine  language  (ML)  program  is 
usually  listed  as  a  long  series  of  num- 
bers. It's  hard  to  keep  your  place  and 
even  harder  to  avoid  making  mistakes  as 
you  type  in  the  listing,  since  an  incorrect 
line  looks  almost  identical  to  a  correct 
one.  To  make  error-free  entry  easier, 
COMPUTE!  generally  lists  ML  programs 
for  Commodore  and  Atari  computers  in 
a  format  designed  to  be  typed  in  with  a 
utility  called  "MLX."  The  MLX  program 
uses  a  checksum  system  to  catch  typing 
errors  almost  as  soon  as  they  happen, 
Apple  MLX  checks  your  typing  on 
a  line-by-line  basis.  It  won't  let  you 
enter  invalid  characters  or  let  you  con- 
tinue if  there's  a  mistake  in  a  line.  It 
won't  even  let  you  enter  a  line  or  digit 
out  of  sequence.  Best  of  all,  you  don't 
have  to  know  anything  about  machine 
language  to  enter  ML  programs  with 
MLX.  Apple  MLX  makes  typing  ML 
programs  almost  foolproof. 

Using  Apple  MLX 

Type  in  and  save  some  copies  of  Apple 
MLX  on  disk  (you'll  want  to  use  MLX  to 
enter  future  ML  programs  in  COM- 
PUTE!). It  doesn't  matter  whether  you 
type  it  in  on  a  disk  formatted  for  DOS 
3.3  or  ProDOS.  Programs  entered  with 
Apple  MLX,  however,  must  be  saved  to 
a  disk  formatted  with  the  same  operat- 
ing system  as  Apple  MLX  itself. 

If  you  have  an  Apple  He  or  lie,  make 
sure  that  the  key  marked  CAPS  LOCK  is 
in  the  down  position.  Type  RUN.  You'll 
be  asked  for  the  starting  and  ending  ad- 
dresses of  the  ML  program.  These  values 
vary  for  each  program,  so  they're  given  at 
the  beginning  of  the  ML  program  listing 
and  in  the  program's  accompanying  arti- 
cle. Find  them  and  type  them  in. 

Invalid  Characters  Banned 

Apple  MLX  is  fairly  flexible  about  how 
you  type  in  the  numbers.  You  can  put 
extra  spaces  between  numbers  or  leave 
the  spaces  out  entirely,  compressing  a 
line  into  1 8  keypresses.  Be  careful  not  to 
put  a  space  between  two  digits  in  the 
middle  of  a  number.  Apple  MLX  will 


Firri  Victor.  Editorioi  Progrommer 


read  two  single-digit  numbers  instead  of 
one  two-digit  number  (F  6  means  F  and 
6,  not  F6). 

You  can't  enter  an  invalid  character 
with  Apple  MLX.  Only  the  numerals  0-9 
and  the  letters  A-F  can  be  typed  in.  If  you 
press  any  other  key  (with  some  excep- 
tions noted  below),  nothing  happens. 
This  safeguards  against  entering  extrane- 
ous  characters.  Even  better,  Apple  MLX 
checks  for  transposed  characters.  If 
you're  supposed  to  type  in  AO  and  in- 
stead enter  OA,  Apple  MLX  will  catch 
your  mistake. 

The  next  thing  you'll  see  is  a  menu 
asking  you  to  select  a  function.  The  first  is 
(E)NTER  DATA.  If  you're  just  starting  to 
type  in  a  program,  pick  this.  Press  the  E 
key.  and  the  program  asks  for  the  ad- 
dress where  you  want  to  begin  entering 
data.  Type  the  first  number  in  the  first 
line  of  the  program  listing  if  you're  just 
starting,  or  the  line  number  where  you 
left  off  if  you've  already  typed  in  part  of  a 
program.  Hit  the  RETURN  key  and  begin 
entering  the  data. 

Once  you're  in  Enter  mode,  Apple 
MLX  prints  the  address  for  each  program 
line  for  you.  You  then  type  in  all  nine 
numbers  on  that  line,  beginning  with  the 
first  two-digit  number  after  the  colon  (:). 
Each  line  represents  eight  bytes  and  a 
checksum.  When  you  enter  a  line  and  hit 
RETURN,  Apple' MLX  recalculates  the 
checksum  from  the  eight  bytes  and  the 
address.  If  you  enter  more  or  less  than 
nine  numbers,  or  the  checksum  doesn't 
exactly  match,  Apple  MLX  erases  the  line 
you  just  entered  and  prompts  you  again 
for  the  same  line. 

Apple  MLX  also  checks  to  make 
sure  you're  tv^ping  in  the  right  line.  The 
address  (the  number  to  the  left  of  the 
colon)  is  part  of  the  checksum  recalcula- 
tion. If  you  accidentally  skip  a  line  and 
try  to  enter  incorrect  values,  Apple  MLX 
won't  let  you  continue.  Just  make  sure 
you  enter  the  correct  starting  address;  if 
you  don't,  you  won't  be  able  to  enter  any 
of  the  following  lines.  Apple  MLX  will 
stop  you. 

Editing  Features 

Apple  MLX  also  includes  some  editing 
features.  The  left-  and  right-arrow  keys 
allow  you  to  back  up  and  go  forward  on 
the  line  that  you  are  entering,  so  you  can 
retype  data.  Pressing  the  CONTROL 
(CTRL)  and  D  keys  at  the  same  time 
(delete)  removes  the  character  under  the 
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cursor,  shortening  the  line  by  one  charac- 
ter. Pressing  CTRL-I  (insert)  puts  a  space 
under  the  cursor  and  shifts  the  rest  of  the 
line  to  the  right  making  the  line  one 
character  longer.  If  the  cursor  is  at  the 
right  end  of  the  line,  neither  CTRL-D  nor 
CTRL- 1  has  any  effect. 

When  you've  entered  the  entire  list- 
ing (up  to  the  ending  address  that  you 
specified  earlier),  Apple  MLX  automati- 
cally leaves  Enter  mode  and  redisplays 
the  functions  menu.  If  you  want  to  leave 
Enter  mode  before  then,  press  the  RE- 
TURN key  when  Apple  MLX  prompts 
you  with  a  new  line  address,  (For  in- 
stance, you  may  want  to  leave  Enter 
mode  to  enter  a  program  listing  in  more 
than  one  sitting;  see  below^) 

Display  Data 

The  second  menu  choice,  (D)ISPLAY 
DATA,  examines  memory  and  shows  the 
contents  in  the  same  format  as  the  pro- 
gram listing.  You  can  use  it  to  check  your 
work  or  to  see  how  far  you've  gotten. 
When  you  press  D,  Apple  MLX  asks  you 
for  a  starting  address,  T)pe  in  the  address 
of  the  first  line  you  w^ant  to  see  and  hit 
RETURN.  Apple  MLX  displays  program 
lines  until  you  press  any  key  or  until  it 
reaches  the  end  of  the  program. 

Save  And  Load 

Two  more  menu  selections  let  you  save 
programs  on  disk  and  load  them  back 
into  the  computer.  These  are  (S)AVE 
FILE  and  (L)OAD  FILE.  When  you  press 
S  or  L,  Apple  MLX  asks  you  for  the 
fUename.  The  first  time  you  save  an  ML 
program,  the  name  you  assign  will  be  the 
program's  filename  on  the  disk.  If  you 
press  L  and  specify  a  filename  that 
doesn't  exist  on  the  disk,  you'll  see  a  disk 
error  message. 

If  you're  not  sure  why  a  disk  error 
has  occurred,  check  the  drive.  Make  sure 
there's  a  formatted  disk  in  the  drive  and 
that  it  was  formatted  by  the  same  operat- 
ing system  you're  using  for  Apple  MLX 
(ProDOS  or^DOS  3.3),  If  you're  trying  to 
save  a  file  and  see  an  error  message,  the 
disk  might  be  full  Either  save  the  file  on 
another  disk  or  quit  Apple  MLX  (by 
pressing  the  Q  key),  delete  an  old  file  or 
two,  then  run  Apple  MLX  again.  Your 
t}^ing  should  still  be  safe  in  memory. 

Apple  MLX:  Machine 
Language  Entry  Program 

For  instructions  on  entering  this  program, 
please  refer  to  ^ 'COMPUTE  !'s  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

Si  100  N  =  9:  HOME  ;  NORMAL  :  PR 
INT  "APPLE  MLX":  POKE  34, 
2:  ONERR  GOTO  610 

CC  110  VTAB  1:  HTAB  20:  PRINT  "S 
TART  ADDRESS";:  GOSUB  530 
:  IF  A  -  0  THEN  PRINT  CHR 
$  (7):  GOTO  110 

SC  120  S  =  A 


El    130 


2i    140 
B5  150 


AE  160 


93 

170 

flF 

1B0 

A) 

190 

33 

200 

92 

210 

£2 

220 

9E  230 


85  240 


F2  250 


9*  260 
tC   270 

48  280 
AA  290 


F9  300 

27  310 

72  320 

BE  330 

22  340 

t9  350 

SS  360 


VTA8  2:  HTAB  20:  PRINT  "E 

ND  ADDRESS   " ; t     GOSUB  530 

:     rFS>^AORA=0    THE 

N  PRINT  CHR*  <7>:  GOTO  13 

0 

E  =  A 

PRINT  :  PRINT  "CHOOSE: (E) 

NTER  DATA";:  HTAB  22:  PR I 

NT  "CDilSPLAY  DATA":  HTAB 

8:  PRINT  "<L)OA0  FILE  < 
SJAVE  FILE  (Q)UIT":  PRIN 
T 

GET  A«:  FOR  I  =  1  TO  5:  I 
F  A*  <  >  MID*  ("EDLSD",!, 
1)  THEN  NEXT  :  GOTO  160 
ON  I  GOTO  270,220,160,200 
:  POKE  34,0:  END 
INPUT  "FILENAME:  ";A*:  IF 

A*  <  >  ""  THEN  PRINT  CHR 

*  (4) ;"BLOAD";A*;",A";S 
GOTO  150 

INPUT  "FILENAME:  ";A*:  IF 
A*  <  >  ""  THEN  PRINT  CHR 

*  (4); "BSAVE";A*;",A";S|" 
,L"; (E  -  S)  +  1 

GOTO  150 

GOSUB  590:  IF  B  =  0  THEN 

130 

FOR  B  =  B  TO  E  STEP  8:L  = 

4; A  =  B:  GOSUB  580:  PRIN 
T  A»; ":  ";:L  -  2 
FOR  F  =  0  TO  7:V<F  +  1)  = 

PEEK  CB  +  F) :  NEXT  :  BOS 
UB  560: V (9 J  =  C 
FOR  F  -  1  TO  N:A  =  V(F): 
60SUB  580:  PRINT  A*"  ";: 
NEXT  :  PRINT  :  IF  PEEK  (4 
9152)  <  128  THEN  NEXT 
POKE  49168,0:  GOTO  150 
eOSUB  590=  IF  B  =  0  THEN 
150 

FOR  B  =  B  TO  E  STEP  8 
HTAB  1:A  ^  B:L  ^  4:  GOSUB 

580:  PRINT  A*;":  "; :  CAL 
L  64668: A*  ^  ""sP  =  0:  GO 
SUB  330:  IF  L  =  0  THEN  15 
0 

GOSUB  470:  IF  F  <  >  N  THE 
N  PRINT  CHR*  {7>;:  GOTO  2 
90 

IF  N  =  9  THEN  GOSUB  560; 
IF  C  <  >  V(9>  THEN  PRINT 
CHR*  (7) ; :  GOTO  290 
FOR  F  =  1  TO  8:  POKE  B  + 
F  -  1,V<F>5  NEXT  :  PRINT 
:  NEXT  :  GOTO  150 
IF  LEN  (A*)  =  33  THEN  A* 
=  0»:P  =  O:  PRINT  CHR*  (7 

J; 

L  =  LEN  <A*):0«  =  A*:0  = 
P:L*  =  "":  IF  P  >  0  THEN 
L*  -  LEFT*  <A*,P) 
R*  =  "":  IF  P  <  L 
N  R* 

1) 

HTAB 

I     IF 


-  1  THE 
RIGHT*  (A*,L  -  P  - 


PRINT  L*;s  FLASH 
<  L  THEN  PRINT  MID 
*  {A«,P  +  1,1);:  NORMAL  : 
PRINT  R*; 
7B  370  PRINT  "  ";:  NORMAL 
E6  380  K  =  PEEK  (49152)  :  IF  K  < 

128  THEN  380 
CI  390  POKE  49168, 0:K  =  K  -  128 
SB  400  IF  K  =  13  THEN  HTAB  7:  PR 

INT  A* 5"  "?!  RETURN 
8ft  410  IF  K  =  32  OR  K  >  47  AND  K 
<  58  OR  K  >  64  AND  K  <  7 
1  THEN  A*  =  L*  +  CHR*  fK> 
+  R*:P  =  P  +  1 

R 


(P 


CI   420 

IF    K    =    4    THEN   A*    =    L* 

* 

5F  430 

IF    K    =    9    THEN    A*    =    L* 

"    +   MID*    (A*,P    +    1, n 

R« 

lA  440 

IF    K    =   8    THEN    P    -    P    - 

>   0> 

9J  450  IF  K  =  21  THEN  P  =  P  +  CP 
<  L) 

9D  460  GOTO  330 

37  470  F  =  1:0  =  0:  FOR  P  =  1  TO 
LEN  CA*)!C*  =  MID*  (A*,P 
,1):  IF  F  >  N  AND  C*  <  > 
"  "  THEN  RETURN 

BB  4B0  IF  C*  <  >  "  "  THEN  GOSUB 
520: VCF)  -  J  +  16  *  (D  = 
1)  »  V<F):D  =  D  +  1 

5F  490  IF  D  >  0  AND  C*  =  "  "  OR 
D  =  2  THEN  D  ^  0;F  =  F  + 
1 

«a  500  NEXT  :  IF  D  =  0  THEN  F  ^ 
F  -  1 

17  510  RETURN 

B5  520  J  =  ASC  (C*):J  =  J  -  48  - 
7  «  (J  >  64):  RETURN 

*IB  530  A  =  0:  INPUT  A*:  A*  =  LEFT 
*  <A*,4J:  IF  LEN  CA*)  =  0 

THEN  RETURN 
FOR  P  =  1  TO  LEN  <A*):C* 
=  MID*  (A*,P, 1):  IF  C*  < 
"0"  OR  C*  >  "9"  AND  C*  < 
"A"  OR  C*  >  "2"  THEN  A  = 
0:  RETURN 
GOSUB  520: A  =  A  t    16  +  J: 

NEXT  :  RETURN 
C  =  INT  CB  /  256) :C  ^  B  - 
254  «  C  -  255  t  (C  >  127 
) :C  =  C  -  255  «  (C  >  255J 
FOR  F  =  1  TO  B:C  =  C  «  2 
-  255  «  (C  >  127)  +  V(F): 
C  =^  C  -  255  »  (C  >  255)  : 
NEXT  :  RETURN 
I  =  FRE  (0) :A*  ^  "";  FOR 
I  ==  1  TO  L:T  «  INT  (A  /  1 
6>:A*  =  MID*  ("0123456789 
ABCDEF",  A  -  16  «  T  ■+•  1,1  J 
+  A*: A  =  T:  NEXT  :  RETUR 
N 

PRINT  "FROM  ADDRESS  "j:  G 
OSUB  530:  IF  S  >  A  OR  E  < 
A  OR  A  =  0  THEN  B  =  0:  R 
ETURN 

B  =  S  -f  a  *  INT  C(A  -  3) 
/  8):  RETURN 

PRINT  "DISK  ERROR":  GOTO 
150  ^ 


iF  540 

21}  550 

28  560 

29  570 
DA  580 

IF  590 

#1)  600 
U   610 


All  the  programs  in 

this  issue  are 

available  on  the 

ready-to-load 

COMPUTE!  Disk.  To 

order  a  one-year 

(four-disk) 

subscription, 

call  toll  free 

800-247-5470 

(in  lA  800-532-1272). 

Please  specify  which 

computer  you  are 

using. 
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SOFTWARE 


FANTASTIC  DAILY  NUMBER  FORECASTERl 

Not  a  R/N  Gen.  Guarant<^ed!  Str.  Hits. 
C/64,  Ap,  IBM,  Atari.  1  Drive.  OH  add  5% 
SASE  for  info.  $42.95  on  Disk  only  to: 
Z-VVay,  PO  Box  9017-C,  Canton,  OH  44711 

COMMODORE:  TRY  BEFORE  YOU  BUY.  Best 
selling  games,  utilities,  educational.  +  classics 
and  new  releases.  lOO's  of  titles.  Visa/MC,  Free 
brochure.  RENT-A-DI5C,  Frederick  Bldg.  #345, 
Hunt'n,  VVV  25701  (304)  529-3232 

FREE  APPLE  SOFTWARE 

Over  1000  Public  Domain  Programs  on  50 
diskettes.  $5  each  plus  SI  for  shipping  per  order. 
Send  $1  for  catalog.  Refundable  with  order. 
C&H  ENTERPRISES 
PO  Box  29243.  Memphis,  TN  38127 

T1-99/4A  QUALITY  SOFTWARE  for  Business, 
Home  and  Entertainment  **  Bonus  Software 
Offer!  •*  Send  for  FREE  catalog  to  MICRO- BIZ 
HAWAII,  BOX  1108,  PEARL  CITY,  HI  96782 

T1-99/4A  Software/Hardware  Bargains. 
Hard-lo-find  items.  Huge  Selection. 
Fast  Service.  Free  Catalog. 
D.E.C,  Box  690,  Hicksville,  NY  11801 

TANDY  1000  PROGRAMS  AND  NEWSLETTER 
Send  for  free  information  on  educational  & 
pntertainmenl  programs  &  newsletter.  Soda  Pop 
Software,  POB  653,  Kenosha,  WI  53141 

APPLE  PUBLIC  DOMAIN  SOFTWARE  (almost 
free)  Send  $2  for  sample  disk  and  catalog. 
Refundable  with  order.  Disks  cost  $2.50  and  less. 
CALOKE  IND.,  Box  18477,  K.C.,  MO  64133 

DISCOUNT  SOFTWARE  for  most  computers. 
FREE  CATALOG.  Sale:  5.25"  DSDD  Disks 
25  for  $13.95  ppd.  WMJ  DATA  SYSTEMS-C, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

CHEAP  SOFTWARE  FOR  PC/MS-DOS/PCjr... 
Games,  Business,  Educational  and  Utility 
Disk.  For  catalog  write;  Morning  Star, 
P.O.  Box  3095,  Ann  Arbor,  Ml  48106 


FREE!  PUBLIC  DOMAIN  SOFTWARE! 
MS-DOS,  IBM  &  Compatibles  -  Save  $$$ 
@  $3.50  per  disk!  Free  flyer:  AP-jP,  Inc, 
P.O.  Box  1155,  W.  Babylon,  NY  11704 


ATARI  8- BIT  &  STI  Best  PD  software  for 

your  Atari,  150+  disks  total  to  choose  from! 
Only  $5  each.  Send  SASE  for  catalog. 
Specify  ST  or  8-bit  PLEASE!  Gator-Ace 
Box  1215,  Gainesville,  FL  32602 


INTERACTIVE  TEXT  GAMES  -  C64/128,  Atari 
8-bit.  MEDIEVAL  I,  a  mystic  quest  (C64/128 
onlv)  or  LEGEND,  an  epic  fantasv  war.  Each 
disk  $17,95  Ch/MO  to:  SPECTRUM  VISUAL 
CONCEPTS,  1609  Royal  PL,  Clemen  ton,  NJ 
08021 


$$  WIN  $S 

with  our  % 

SPORTS         ^Zj^SSC 
HandicoppinQ  •'7****^'**X 
Software 

THO(K3tlGHBR£D/HARNESS>^ancl:gcippinoS??<?t),©rihar^ed 
S4Qg5  (»R£YHOUN0  Hanoicapcxng  S2<?95.  ©nrranced  S4995 
PRO  FOOIBAU  Honai cooping  S/stem  539  <?5  Specl^  disk/ 
tope  Appt©  il+ce.  Atofi  [BM  PC  COM  0^/126.  Ti,  TRS-fiO  t/ciQ 

3/4.  Mod  100/200.  Cclof  Am  S2  po^i  /ncndl  MC.'VfSA/CODs 
occepted  freo  informoTion  SOFTWARE  EXCHANGE,  Ben  53B2 
CP.  W  BloomH?1d.  Ml  48033  QfOOfS  l-aOQ- 527-9^6 7 


(ATTENTION  T;L99/4A  OWNERS ( 
•  Over  1500  Accessories 
THE  WORLD'S  LARGEST 
COMPUTER  ASSISTANCE  GROUP 

Now  serving  over  35,000  members  worldwide 
with  the  best  in  technical  assistance,  service, 
and  products  for  ttie  Texas  Instrument  99/ 4A. 
To  become  a  member  and  receive  newsletters, 
catalog,  technical  assistance  and  membership 
package,  send  $10.00  for  a  ONE  Year  Member- 
ship to:  99/4 A  National  Assist  Group 
National  Headquarters 
P.O.  Box  290812 
Ft  Lauderdale,  Rorida  33329 
Attention  Membership  Division 
For  Information  Cali  (305)  962-8846 


IBM  PUBLIC  DOMAIN  SOFTWARE  $3  PER  DISK 
Send  tor  free  list.  We  have  dbases/games/ 
spreadsheets/finance/educational/and  more. 
For  home  or  business.  Disks  are  new  DSDD. 
JDX/C  RO,  Box  1561,  Corona,  CA  91718 

FREE  SOFTWARE  for  C64,  C128,  IBM  &  CPM 
send  SASE  for  info  {specify  computer)  to; 
PUBLIC  DOMAIN  USERS  GROUP 
PO  Box  1442-Al,  Orange  Park,  FL  32067 

THE  GLEANER,  A  C64  GENEALOGY  PROGRAM 
Grp  sheets,  ped  charts,  index,  25p  manual, 
selective  search.  S19,95  +  $2  p/h 
Kudzu  Software,  Box  993,  Morrow,  GA  30260 

MUTUAL  FUND  PROGRAM  (MFP)  saves 
trouble  and  money  by  figuring  lowest 
taxable  capital  gain  on  withdrawals.  Keeps 
funds,  bank  accounts,  IRA's,  etc.  all 
in  one  record.  Disk  and  manual  C64:$50, 
IBM  PC:$100.  Bernhardt  MFP  Software, 
8  Kings  Ct.,  Great  Neck,  NY  11024 

HEY  AMIGOI  PD  software  for  AMIGA! 

Games,  Graphics,  Utilities,  More!  Over  50 
disks  available,  only  $5.95  ea!  SASE  for  cat. 
AMY  WARE,  POB  19474,  Jacksonville,  FL  32245 

MAKE  YOUR  BASIC  PROGRAMS  COME  TO 
LIFE!  Speed-up  your  C64  programs  5-20  times 
using  high-speed  ML.  Send  program  disk  and 
$15  check  or  m.o.  to:  Sean  App legate,  976  W. 
Foothill  #517,  Claremont,  CA  91711 


HOME  k  BUSINESS 

Savings/Loans,  Cost  Schedule,  Calculator 
Files:  List,  Search,  Create,  Read,  Add  Data. 
Calculating  Files:  Charge  Account  Budget/ 
Inventory,  Check  &  Bank  Statement/Bal 
Tally/Expenses,  Auto,  Phone,  Payroll, 
Text-File,  Invoice  Records:  Sales, 
Service,  Payments,  Returns.  Sorts  Files 
Editing,  Instruction  Manual,  Help  Access 
Basic  Programmers  can  List  Code. 
PC/MS-DOS  IBM  &  Compatible  256K  Min 
Calc-Data,  Inc.,  Ver.CDLO{C) 
Tamarind  Dr.,  Hallandaie,  FL  33009 
Orders  1-800-247-7893,  305-456-0417 
COD/MO/Chs,Chk  S39.95  +  S5  s/h 


HARDWARE 


JOYSTICKS  for  all  COMMODORE  and  ATARI 
computers.  Super  smooth  and  precise  operation 
w/steel  spring  centering  mechanism  in 
handsome  casing.  Fully  compatible  but  superior 
to  standard  Atari  stick.  Brand  new,  boxed 
w/warranty.  $6.95/ea  postpaid  or  SlL95/pair. 
Dealers /Groups:  S59/dozen.  Send  order  to: 
25th  Century,  POB  8042,  Long  Island, 
New  York  11802 


MISCELLANEOUS 


SAFEWARE  INSURES  COMPUTERS  against 
fire,  theft,  &  power  surges  for  as  little  as 
$39,  Call  Safeware,  The  Insurance  Agency  Inc. 
at  800/848-3469,  Columbus,  Ohio. 

BBS  Numbers  $5  BBS  Software!  Order  by 
modem  {300  BAUD)  818-840-8066  or  send  $5  to 
BBS-FUNPAK,  Box  6055,  Burbank,  CA  91510 
Multi-User  Modem  Party  Line:  818-842-3322 

VIDEO  GAME  CARTRIDGES  FOR  GAME- 
PLAYING  MACHINES!  ALL  SYSTEMS!  WE  BUY 
&  SELL,  RETAIL  &  WHOLESALE.  ALSO  HAVE 
COMPUTER  SOFTWARE.  FREE  PRICE  LIST! 
PLEASANT  VALLEY  VIDEO,  DEPT,  G,  8141  PL 
VAL  RD,  CAMDEN,  OH  45311  (513)  787-4707 
(VOICE),  (513)  787-3777  (BBS,  MODEM) 

*•  COMMODORE  REPAIR  " 

C64:$45,  SX64:S75,  1541:$50,  1571:$65 

Will  buy  used  units.  Repairs  warranted  30  days. 

Dave  Taylor,  5106  Daventry  PL,  Midland,  TX 

79705.     (915)  683-8398 


COMPUTEI  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  mininnunn  of  four  lines.  Any  or  all  of  the  first  line  set  in  capi- 
tal letters  at  no  charge.  Add  $15  per  line  for  boldface  words,  or  S50  for  the  entire 
ad  set  in  boldface  (any  number  of  lines.)  Inquire  about  display  rates. 

Terms:  Prepayment  is  required.  Check,  nrionev  order,  American  Express,  Visa,  or 
MasterCard 'is  accepted.  Make  checks  payable  to  COMPUTE!  Publications. 

Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  and  spaces  between  urords.  Please  underline 
u'ords  to  be  set  in  boldface. 

General  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  next  avail- 
able issue  after  receipt. 

Closing:  10th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes 
March  10th).  Send  order  and  remittance  to;  Harry  Blair,  Classified  Manager, 
COMPUTE!,  P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone, 
call  Harry  Blair  at  (919)  275-9809. 

Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of 
advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 
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RUSH  POSTAGE-PAID  CARD 
FOR  YOUR  FREE  CATALOG 


•  COMPUTER  ELECTRONICS  training  prepares  you 
to  service  all  computers  as  you  build  your  own  1 6-bit 
IBM  PC  compatible  computer  Total  system  program 
includes  disk  drive,  test  equipment,  bundled  soft- 
ware, and  NRI  Discovery  Lab, 

•  TV/ViDEO/AUDIO  SERVICING  includes  training 
witb  a  state-of-tbe-an  27"  tiigh  resolution  broadcast 
stereo  TV  for  learning  iroublsshooting  and  profes- 
sional bench  techniques. 

.  SATELLITE  ELECTRONICS  training  gives  you 
the  skills  to  service  both  consumer  and  commercial 
satellite  earth  station  equipment  as  you  assemble 
your  own  home  satellite  TV  system. 

•  ROBOTICS  training  features  remote-controlled, 
mobile,  fylly  pfo^rammable  robot  you  build,  e)tperi- 
ment  with,  and  keep  along  with  other  test  equipment 
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D  Air  Conditioning,  Heating, 
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D  Bookkeeping  and  Accounting 
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provide  product  information  have  reader  service  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers. 

Please  use  these  cords  on// for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
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the  expiration  date  on  the  cord  to  insure  proper  handling. 
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For  Fastest  Service, 

Call  Our  ToH-Free 
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Fly  to  Florida! 


Scenery  Disk  #  7  covers  the  entire  East  Coast  area  from 
Philadelphia  to  Miami.  The  Florida  coastline,  from  Cape 
Canaveral  to  Miami,  is  perfect  for  concentrated  sight-seeing.  Or 
fly  to  Washington  DC,  where  scenery  details  include  the  Capitol 
Building,  Pentagon,  and  Washington  Monument.  Whether  seek- 
ing the  intellectual  challenge  of  Flight  Simulator  or  the  brute- 
force  fun  of  Jet,  you'll  find  this  latest  evolution  of  SubLOGIC 
scenery  absolutely  breath-taking f 


Scenery  Disks  now  available: 


Areas  1-7 

San  Francisco  STAR' 

Central  Japan 


See  your  dealer.  SubLOGIC  Scenery  Disks  are  available  in- 
dividually for  $19.95.  The  six-disk  Western  U.S.  set  is  available 
for  $99.95.  For  additional  product  ordering  information  or  the 
name  of  the  dealer  nearest  you,  call 

©[ii][o)lJOGIC 

713  Edgtrbrook  Priv* 
Champaign  IL  61820 

ORDER  LINE:  (800)  637-4983 

^•lespi  in  iiincKi.  Mam  HAd  HAwt.o 
Open  7  AM  to  9  PM  Central  Time 


Apple  Ue/Hc  compatible 


5,^^ 


The  Laser  128  is  a  smashing  success. 

*54  Clear  Winnev^'  -  A+  Magaaine 
^'ARenmrkahfy  Compatible,  Competent  Peffirmei^^  -  inCidef  Magazine 

^'A  Better  Value*'  -  CompuUr  Shopper 

\  The  Laser  128  Apple-compatible  computer  is  a  successful  hit  with  its  audience.  Industry  publication 
\reviews  make  it  clear-  the  Laser  128  is  a  hot  ticket.  The  Laser  128  Is  made  to  grow  like  an  Apple  lie, 
designed  to  go  like  an  Apple  lie  and  priced  to  go  like  a  Commodore.  And,  only  the  Laser  128  has  all  these 
performance  features:  128K  RAM,  built-in  floppy  disk  drive,  serial  and  parallel  printer  interfaces,  mouse 
interface,  modem  interface,  80-column  text,  numeric  keypad  and  an  expansion  slot.  These  leading 
features  make  the  Laser  128  a  headline  performer  with  a  style  perfect  for  home,  school  or  business  use. 
Getthe  Laser  128  performing  for  you.  Call  or  write  for  the  name  of  your  nearest  Laser  128  dealer. 


VIDEO  TECHMOLOG  Y, 
COMPUTERS,  INC,  i 

40a^thony  Trail,  Northbrook,  IL  60062-2536    Telephone:  312  272-6760 

Apple.  Ap^e  lle.andApple/lbaieiegistefed  Irademaitis  of  Apple  Computer.  Inc.  Commodore  is  a  registered  Irademaik 


